Var s,k,a,sr:integer;
begin
s:=0;
k:=100;
a:=100;
repeat
s:=s+a;
k:=k-1;
a:=a-1;
until a<=10;
sr:=s*s;
writeln('sr = ',sr,' k = ',k);
end.
Пример:
<span>sr = 24950025 k = 10</span>
Он называется авиабилетбольше названий у него нет!!!!!!!!!!
блок схемы кстати нет, так что не обессудь
1024
x=0
x=x+1
x=x+1
x=x*2 (9раз)
500
x=0
x=x+1
x=x+1
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x*2
x=x+1
x=x*2
x=x*2
1)2 2)1 3)3 4)3 5)1 6)1 7)1 8)2 9)2 10) Цвет текста, размер текста, выравнивание.
11)для показания ошибок в правописании.
12)Изменения документа.