Надрукуйте у рядок 4 перших натуральних числа, що більші за 100 і кратні 25, та знайдіть їх добуток.

Angelina07111 Angelina07111    3   20.04.2020 17:50    0

Ответы
LizaVeta281 LizaVeta281  13.10.2020 13:11

program test;

var

i,s,p: integer;

begin

i:=0

s:=99;

while i < 4 do

 begin

 s:=s+1

 if s mod 25 = 0 then

 begin

 writeln(s);

 p:=1*p*s;

 i:=i+1;

 end;

 end;

writeln(p);

end.

 

ПОКАЗАТЬ ОТВЕТЫ
andrstoyan182 andrstoyan182  13.10.2020 13:11

ответ:15

Объяснение:1+2+3+4+5

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика