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;
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.