Регистрация
kanyuka
04.04.2020 20:34
Информатика
Есть ответ 👍

Подсчитать количество и сумму четных четырехзначных чисел pascal abc

127
456
Посмотреть ответы 2

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

nikitos133728
nikitos133728
4,5(8 оценок)
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.
5312макс1245
5312макс1245
4,5(68 оценок)
20х20=400 бит, или 40 кбит.  1 черно-белый пиксель весит 1 бит, по этому 20х20. 

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