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.