1) Найдите сумму и произведение целых чисел больших 13 и меньших 100 и кратных 4. решите задачу на языке Pascal

Question

Информатика

Петюка

22 марта, 13:45

1) Найдите сумму и произведение целых чисел больших 13 и меньших 100 и кратных 4. решите задачу на языке Pascal

+2

Ответы (1)

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

Маркел · Answer 1

Program Pr1;

uses crt;

var i, c, t:integer;

begin

clrscr;

c:=0;

t:=1;

i:=14;

while i<100 do if i mod 4=0 then begin

c:=c+i;

t:=t*i;

end;

writeln (' + ', c) ;

writeln (' * ', t) ;

end.