Реферат: Простые операторы в Паскале

Begin

Writeln (‘Таблица перевода расстояний из дюймов в сантиметры’);

For R1:=1 to 20 do

Begin

R2 := 2.5*R1;

Writeln (R1 :6, ‘ ‘, R2 :8:2 );

End;

Readln;

End.

2 способ.

Program sb2;

Var

R2 : real ;

R1 : integer ;

Begin

Writeln (‘Таблица перевода расстояний из дюймов в сантиметры’);

R1 := 1;

While R1 <= 20 do

Begin

R2 := 2.5*R1;

Writeln (R1 :6, ‘ ‘, R2 :8:2 );

R1 := R1+ 1;

End;

Readln;

End.

3 способ.

Program sb3;

Var

R2 : real ;