var i,z,y,x: integer; // объявление переменных begin // начало программы writeln('Введите числа: '); // Вывод сообщения readln(x,y); // Ввод чисел х и у с клавиатуры while i <> y do // Повторять цикл пока i не будет равно y begin // Вход в цикл z:=z+x; // z = z + x (при первом шаге получается 0 = 0 + х) i:=i+1; // Увеличиваем счетчик цикла на 1 end; // Выход из цикла write(z); // Вывод z (произведение х и у) end. // Конец программы
Книгопечатание в 15 веке уже распространилось по всей Европе известно до 1000 имён печатников того времени, число же изданий, вероятно, доходит до 30000 (так называемые инкунабулы); 6/7 этого количества составляют сочинения религиозные и схоластические, остальные — научные и древняя и новая литература. Формат — in folio, разделённый на два столбца, или in quarto. Шрифт остался прежний — письменный готический прямоугольный. Только в Италии печатники начали применять употреблявшийся там ещё с XIV века круглый шрифт, так называемый римский, который впоследствии и вытеснил готический.
i,z,y,x: integer; // объявление переменных
begin // начало программы
writeln('Введите числа: '); // Вывод сообщения
readln(x,y); // Ввод чисел х и у с клавиатуры
while i <> y do // Повторять цикл пока i не будет равно y
begin // Вход в цикл
z:=z+x; // z = z + x (при первом шаге получается 0 = 0 + х)
i:=i+1; // Увеличиваем счетчик цикла на 1
end; // Выход из цикла
write(z); // Вывод z (произведение х и у)
end. // Конец программы