Составьте программу в Паскале

Найдите сумму чисел, кратных 2 из диапазона от 1 до 38.

Найдите произведение чисел, кратных 4 из диапазона от 2 до 25.

Question

Информатика

Филиппыч

7 марта, 05:16

Составьте программу в Паскале

Найдите сумму чисел, кратных 2 из диапазона от 1 до 38.

Найдите произведение чисел, кратных 4 из диапазона от 2 до 25.

+5

Ответы (1)

Знаете ответ?

Анастасиюшка · Answer 1

Program n1;

var i, s, p: longint;

begin

s:=0;

p:=1;

for i:=1 to 38 do if i mod 2=0 then s:=s+i;

for i:=2 to 25 do if i mod 4=0 then p:=p*i;

writeln ('сумма: ', s) ;

writeln ('произведение: ', p) ;

end.

Составьте программу в ПаскалеНайдите сумму чисел, кратных 2 из диапазона от 1 до 38.Найдите произведение чисел, кратных 4 из диапазона от 2 до 25.

Составьте программу в Паскале

Найдите сумму чисел, кратных 2 из диапазона от 1 до 38.

Найдите произведение чисел, кратных 4 из диапазона от 2 до 25.