написать программу находящую сумму всех трехзначных чисел, в записи которых есть четные цифры
Ответы на вопрос
Ответил Аноним
0
var a,b,c,d,j:integer;
begin
j:=0;
for a:=100 to 112 do
begin
b:=a div 10;
d:=a mod 10;
c:=a-(100*b)-d;
if (a div 2=a/2) or (b div 2=b/2) or (c div 2=c/2) then j:=j+1;
end;
writeln(j);
end.
это для pascalABC
Ответил MrsSima
0
Program n1;
Uses CRT;
Var a,b,c,s,i: integer;
begin
ClrScr;
For i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then s:=s+i;
end;
writeln('summa ravna ',s);
readln
end.
Новые вопросы
Окружающий мир,
6 лет назад
Русский язык,
6 лет назад
Геометрия,
10 лет назад
Алгебра,
10 лет назад
Алгебра,
10 лет назад