Напишите программу, которая вычисляет количество натуральных чисел, поданных на её вход, в которых все - id133942620200513 от КсенияВиленская 13.05.2020 02:02

Question

Информатика: Напишите программу, которая вычисляет количество натуральных чисел, поданных на её вход, в которых все цифры равны двойке. ввод заканчивается числом 0, которое является только признаком окончания ввода и в расчетах не участвует. если таких чисел нет , то вывести -1. входные данные во входных строках записаны натуральные числа, по одному в каждой строке. в последней строке записано число 0. выходные данные программа должна вывести в одной строке найденное количество таких чисел или -1 если таких

КсенияВиленская · Accepted Answer

1.

program raf105;

var

i: integer;

begin

for i:=50 to 57 do

writeln(i,' ');

end.

2.

program raf105;

var

i,c,sum: integer;

sari: real;

begin

for i:=6 to 14 do

begin

sum:= sum+i*i;

c:= c+1;

end;

sari:= sum/c;

writeln('Среднее арифметическое: ',sari);

end.

3.

program raf105;

var

i,n,sum: integer;

begin

write('n = ');

readln(n);

for i:=1 to n do

if i mod 2 = 0

then sum:= sum+i*i;

writeln('Сумма квадратов чётных чисел: ',sum);

end.

PascalABC 3.4.2

MOGZ ответил