Составить блок-схему по готовому фрагменту программы.

Program cikl;

Var

K, Max: real;

N:byte;

Begin

Max:=0;

N:=0;

While N<=10 do

Begin

Write (‘Введите число’);

Readln (K);

IF Max
Max:=K;

N:=N+1;

End;

End.

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.

компьютер телфон и иже с ними

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;