Александра Викторович531
?>

Напишите программу, которая в последовательности натуральных чисел определяет количество и сумму всех чисел, кратных 7 и оканчивающихся на 2.

Информатика

Ответы

poiskmarina

Program M1;  

var s,x:integer;  

begin  

s:=0;  

x:=1;  

while x<>0 do  

begin  

read(x);  

if (x mod 7=0) and (i mod 10=0) then s:=x+s;  

end;  

writeln('summa=',s);  

end.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите программу, которая в последовательности натуральных чисел определяет количество и сумму всех чисел, кратных 7 и оканчивающихся на 2.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Александровна
Мартынова_Ринатовна1657
Vladstreletskiy
Doronin755
kovalenko262
matveevaev81
tanyamurashova11352
lebedev815
yocrew13
Khlustikova_Borisovna
ynikolaev2657
sisychev
Corneewan
КОРМИЛИЦЫНА
corneewa20096