Предмет: Информатика,
автор: glassesKuplinov
Составьте программу вычисления кол-ва трехзначных чисел, у которых сумма цифр является четным числом.
Помогите пожалуйста, а то Паскаль не понимаю, особенно такие задачи... :с
Ответы
Автор ответа:
0
var a,b,c,e:integer;
begin
e:=0;
for a:=100 to 999 do begin
c:=a;
while (c<>0) do begin
b:=c mod 10;
e:=b+e;
c:=c div 10;
end;
if (e mod 2 = 0) then writeln(a);
e:=0;
end;
end.
begin
e:=0;
for a:=100 to 999 do begin
c:=a;
while (c<>0) do begin
b:=c mod 10;
e:=b+e;
c:=c div 10;
end;
if (e mod 2 = 0) then writeln(a);
e:=0;
end;
end.
Похожие вопросы
Предмет: Алгебра,
автор: kovalenkoevgeniya
Предмет: Русский язык,
автор: azemaduishonkulova
Предмет: Литература,
автор: drozdeckaanasta
Предмет: Обществознание,
автор: Paintbailist
Предмет: Математика,
автор: dimon132001