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

Question

Информатика

Тена

31 марта, 11:24

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

+5

Ответы (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.