Предмет: Информатика,
автор: Аноним
Программа "сложение и умножение чисел от 200 до 2000 кратных 5 и 7"
Ответы
Автор ответа:
1
program slozh_i_umn_krat_5i7;
var
p,s,i:int64;
begin
p:=1; s:=0;
for i:=200 to 2000 do
if (i mod 5=0)and(i mod 7=0) then
begin
p:=p*i;
s:=s+i
end;
write(p,' ',s)
end.
Интересные вопросы
Предмет: Русский язык,
автор: 375295879772
Предмет: Русский язык,
автор: Arturhcik
Предмет: Другие предметы,
автор: lovegirl9
Предмет: Биология,
автор: Adam951