Написать блок схему и программу с использованием 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.



See also: