Регистрация
sashaberts
26.06.2021 14:13
Информатика
Есть ответ 👍

За спам БАН Результаты тестирования по математике представлены в виде массива из 15 целых чисел.
Необходимо составить программу, с которой можно найти количество учеников,
получивших более Сопоставь команды алгоритма с командами программы.​

203
298
Посмотреть ответы 1

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

CoreyTaylor666
CoreyTaylor666
4,7(67 оценок)

ответ:

var a,b: integer;

is7: boolean;

begin

readln(a);

b: =0;

is7: =false;

while a < > 0 do

begin

b: =b+a mod 10;

if a mod 10 = 7 then

is7: =true;

a: =a div 10;

end;

wrtieln('сумма цифр: ', b);

write('цифра 7 ');

if is7 then writeln('есть') else writeln('нет');

readln;

end.

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