Регистрация
danikmy12
15.04.2020 11:41
Информатика
Есть ответ 👍

Var n: longint;
sum: integer;
begin
readln (n);
sum :=0;
write n>0 do begin
If n mod 10 mod 2 = 0 theen
Sum : = + n mod 10;
n:= n div 10
end;
writeln (sum);
end.
Какая умова задачи ?!

186
251
Посмотреть ответы 1

Ответы на вопрос:

ArturRus2004
ArturRus2004
4,4(51 оценок)

ответ круга 3,1квадрат,2маленьких треугольника,2больших треугольника.

Популярно: Информатика