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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.