Предмет: Информатика, автор: volk3326

подсчитать количество и сумму четных четырехзначных чисел Pascal ABC

Ответы

Автор ответа: stasd789p054wt
0
Program abc;
var a,b,c,sum,col:integer;
begin
readln(a);
b:=0;
col:=0;
sum:=0;
while a<>0 do
begin
c:=a;
 while c<>0 do
 begin
 b:=b+1;
 a:=a div 10
 end;
 if b=4 then
col:=col+1;
sum:=sum+a;
readln(a)
end;
writeln(sum);
writeln(col);
end.

Автор ответа: volk3326
0
Что...
Автор ответа: volk3326
0
на паскале проверь
Автор ответа: volk3326
0
это не правильно
Похожие вопросы
Предмет: Математика, автор: Аноним
Предмет: Геометрия, автор: pikulevandrej06