Циклы1. какие из ниже циклов составлены неправильно? почему? сколько раз выполнится оператор в цикле? 1) for c: = 1 to 6 do < оператор> ; 2) for c: = 6 to 1 do < оператор> ; 3) for c: = 0.1 to 0.6 do < оператор> ; 4) for c: = ‘a’ to ‘а’ do < оператор> ; 5) for c: = 1 to 6
do c: =sqr(c); 2. укажите порядок записи блоков для нахождения среднего арифметического значений введенных чисел: a. s: =s/n; b. writeln(s)c. s: =s+a[i]d. s: =0; e. read(n)f. for i: =1 to n do
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandomReal(10,-99,99);
var c:=mas.Select(t->round(t*100) / 100).ToArray; c.Println;
var b:=c.Min;
c[7]:=b;
c.Println;
end.
Program m2
begin
var n:=readinteger('Введите количество n=');
var (b,a,c):=(3,1,2);
var k:real:=0;
for var i:=1 to n do
begin
k:=k+b/(a*c);
b:=b+3;a:=a+1;
c:=c+2;
end;
Writeln('Сумма=',k);
end.
Program m3;
begin
var n:=readinteger('Введите количество n=');
var c:real:=0;
var b:=1;
for var i:=1 to n do
begin
c:=c+b**2;
b:=b+1;
end;
var y:=n*(n+1)*(2*n+1)/6;
if c=y then
writeln('тождество верно')
else writeln('тождество не верно')
end.