Предмет: Информатика,
автор: volk3326
подсчитать количество и сумму четных четырехзначных чисел Pascal ABC
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
Что...
Автор ответа:
0
на паскале проверь
Автор ответа:
0
это не правильно
Похожие вопросы
Предмет: Қазақ тiлi,
автор: hajpmasters
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: pikulevandrej06
Предмет: Биология,
автор: alff1
Предмет: Алгебра,
автор: tyrisha13