1. Даны числа от 5 до 16. Необходимо вывести на экран (в столбик) удвоенное значение каждого числа.

Пример вывода ответа: 5*2 = 10

6*2 = 12 и т. д.

2) Напишите программу перевода расстояния из метром в сантиметры для значений длин от 1 до 15 метров.

(Информатика. 8 класс. Паскаль)

Код:

1)

program project1;

var

i:Integer;

begin

for i:=5 to 16 do

begin

Write (i, ' * 2 = ', i*2) ;

Writeln;

end;

Readln;

end.

2) Выводит столбики:

program project1;

var i:integer;

begin

for i:=1 to 15 do

begin

Write (i, 'm = ', i*100, 'cm') ;

Writeln;

end;

Readln;

end.

Переводит значение введённого количества метров в сантиметры:

program project1;

var

i:=real;

begin

Readln (i) ;

Writeln (i, 'm = ', i*100, 'cm') ;

end.