Нужно написать программу на паскале


Нужно написать программу на паскале

overlord735 overlord735    3   10.11.2020 20:53    1

Ответы
Salta21242424 Salta21242424  10.12.2020 21:01

var

i: integer;

sum40, sumdi: longint;

begin

sum40 := 0;

sumdi := 0;

while true do

begin

read(i);

if i = 0 then break;

if i > 40 then sum40 := sum40 + 1;

if (i>=10) and (i<=99) then sumdi := sumdi + 1;

end;

writeln('Больше 40: ',  sum40);

writeln('Две цифры: ', sumdi);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика