1. Даны числа от 5 до 16. Необходимо вывести на экран (в столбик) удвоенное значение каждого числа. Пример вывода ответа: 5*2 = 10 6*2 = 12 и т. д. 2) Напишите программу перевода расстояния из метром в сантиметры для значений длин от 1 до 15 метров. (Информатика. 8 класс. Паскаль)

1)

Program ydvoenie; / / задаём название программе

var

i: integer; / / Создаём переменную i

begin

i : = 5;

while i < = 16 do / / цикл с условием перебора от 5 до 16 включительно

begin

println (i,' * 2 = ', i*2); / / тело цикла, здесь производится умножение на 2 и вывод на экран

i: = i+1; / / увеличение значения счётчика i

end;

end.

2)

Program metrivsm;

var

i: integer;

begin

i : = 1;

while i < = 15 do

begin

println (i,'м.',' = ', i*100, 'см'); / / выводим значения в виде 1 м. = 100 см

i: = i+1;

end;

end.