Запишите ЭТУ ПРОГРАММУ НА ШКОЛЬНОМ АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ УМОЛЯЮ!
programm n_11;
var a, b, c, : real;
var d: real;
var x, x1, x2: real;
begin
wrireln ( ' Решение квадратного уравнения ');
write ( ' Введите коэффициенты a, b, c>>');
readln ( a, b, c);
d:=b*b-4 *a *c;
if d<0 then writeln ( 'Корней нет ');
if d=0 then
begin
x:= -b/2/a;
writeln ( ' Корень уравнения x=', x:9:3)
end;
if d>0 then
begin
x1 := ( -b +sqrt (d) ) /2/a;
x2 :=( -b - sqrt (d) ) /2/a;
writeln ( ' Корни уравнения ' );
writeln ( ' x1=', x1 :9:3);
writeln ( ' x2=', x2 :9:3);
end
end.

Program mas;
uses crt;
var X:array [1..8,1..7] of integer; i,j,a,b:integer;
begin
clrscr;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to 8 do 
for j:=1 to 7 do X[i,j]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to 8 do
begin
for j:=1 to 7 do write(X[i,j]:5);
writeln;
end;
for i:=1 to 8 do
for j:=1 to 3 do X[i,j]:=sqr(X[i,j]);
writeln;
writeln('Рeзультат:');
for i:=1 to 8 do begin for j:=1 to 7 do write(X[i,j]:5);
writeln;
end;
readkey;
end.

for

примеры

(Pascal)

for i := 1 to 10 do

  s:=s+1;

 

(C#,C++)

for (int i=0;i<10;i++) {

   s+=i;

}

 

(Ruby)

for i in 1..10

  s=s+i

end

 

(VB, VBA, Basic,..)

for i = 1 to 10

  s=s+i

next i

 

По умлчанию шагом счетчика является 1. Обычно шаг счетчика можно менять фразой by или step by. Хотя увы такое есть не во всех языках

 

(C#,C++)

for (int i=0;i<10;i=i+2) {

   s+=i;

}

 

(VB, VBA, Basic,..)

for i = 1 to 10 step by 2

  s=s+i

next i

 

Например в паскале возможен только обратный отсчет

for i := 10 downto 1 do

  s:=s+1;

 

еще for примечателен тем, что даже если конец меньше начала (в варианте увеличения счета), то цикл все равно пройдет один раз. Правда не знаю подпадают ли под это правило языки из группы С