Информатика, опубликовано 2018-08-22 23:16:35 by Гость
МНОГО БАЛЛОВ. Написать на языке Паскаль данную задачу. Желательно, с пояснениями. Дано целое 3-хзначное число. определить, является ли сумма его цифр четной.
Ответ оставил Гость
var a,s:integer;
begin
repeat
write(vvedite triohznacinoe cislo:);
readln(a);
until(a>99)and(as:=a div 100+a div 10 mod 10+a mod 10;
if s mod 2=0 then
writeln(summa zifr ciotnaia)
else
writeln(summa zifr neciotnaia);
readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на