Написать блок схему и программу с использованием REPEAT и UNTIL1)Вычислить произведение...

Question

Написать блок схему и программу с использованием REPEAT и UNTIL
1)Вычислить произведение натуральных чисел пока квадрат очередного числа не превысят значение 7.
2)Вычислить сумму четных положительных чисел вводимых с клавиатуры не превышающих какое либо число N.

Answer 1

Var
i,sum : integer;
begin
i:=1;
sum:=0;
repeat
sum:=sum+sqr(i);
i:=i+1;
until sqr(i)<=7;<br>writeln('cумма',sum);
end.
это 1
2)vr
i,s,n : integer;
begin
writeln('n=');
readln(n);
s:=0;
i:=0;
repeat
i:=i+1;
s:=s+1;
until i>=n;
writeln('s=',s);
end.