ПОЖАЛУЙСТА ПОМОГИТЕ СРОЧНО! 1) найти произведение чисел ** промежутке [41,76] 2) Даны...

Question

ПОЖАЛУЙСТА ПОМОГИТЕ СРОЧНО! 1) найти произведение чисел на промежутке [41,76]
2) Даны числа от 34 до 298. Найти количество чисел, кратных 7.

Answer 1

1) var p,i:integer;
begin
p:=1;
for i:=41 to 76 do
p:=p*i;
writeln(p);
end.
2) var k,i:integer;
begin
k:=0;
for i:=34 to 298 do
if i mod 7 = 0 then 
k:=k+1;
writeln(k);
end.