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

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

Информатика

Эдуардас

21 июля, 22:04

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

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.