Сформулируйте условие задачи (что делает программа?)
var a, s: integer;
begin
s: = 0;
readln (a) ;
while a0 do
begin
if (a mod 7 = 0) and (a mod 10 = 1)
then s : = s + a;
readln (a) ;
end;
writeln (s) ;
end.
var a, s: integer;
begin
s: = 0;
readln (a) ;
while a0 do
begin
if (a mod 7 = 0) and (a mod 10 = 1)
then s : = s + a;
readln (a) ;
end;
writeln (s) ;
end.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Gluschenko
Пока а будет не равно нулю (Необходимо вводить числа с клавиатуры), программа будет искать числа, кратные 7 (без остатка) и 10 (с остатком 1). Если такие числа будут находиться, то, непосредственно, программа будет суммировать найденные числа. После этих операций программа выдаст сумму тех чисел.
Как-то так.)
Как-то так.)
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
