Сформулируйте условие задачи (что делает программа?)

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.

Question

Информатика

Кларимонда

22 января, 14:13

Сформулируйте условие задачи (что делает программа?)

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.

+3

Ответы (1)

Знаете ответ на вопрос?

Восьмарта · Answer 1

Пока а будет не равно нулю (Необходимо вводить числа с клавиатуры), программа будет искать числа, кратные 7 (без остатка) и 10 (с остатком 1). Если такие числа будут находиться, то, непосредственно, программа будет суммировать найденные числа. После этих операций программа выдаст сумму тех чисел.

Как-то так.)

Сформулируйте условие задачи (что делает программа?)var a, s: integer;begins: = 0;readln (a) ;while a0 dobeginif (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.