Составит блок-схему, 1. найти сумму первых 10 натуральных чисел. program z11 var n,s: integer; begin s: =0 for n: =1 to 10 s: =s+n; writeln ('сумма первых 10 натуральных чисел равна', s) end 2. двух значение по возростанию program z12 var x,y: integer; v: integer begin write(введите x, y: ') readln(x,y); if x> y then begin

202

317

Посмотреть ответы 1

Ответы на вопрос:

andreyylysp08r6o

Информатика

4,4(30 оценок)

1. var i: byte; a,b: integer; begin read(a); b: =1; for i: =1 to 9 do b: =b*a; writeln(b); end. 2. var i,b: byte; begin b: =1; for i: =1 to 10 do begin writeln(b); b: =b*2; end; end. 3. var i: byte; begin for i: =0 to 50 do begin write(i,'x5=',i*5); writeln; end; end. шестиугольники замени такими, как на рисунке4