Question

Вывести на экран таблицу умножения от 1 до 10 на число K. K любое вещественное число,
которое вводится с клавиатуры.
При составлении программ обязательно использовать цикл FOR

Answer 1

Ответ:

program z1;

var k:real;

i: integer;

begin

write('k = ');

readln(k);

for i:=1 to 10 do

writeln(i:2,' * ',k,' = ',k*i)

end.

Объяснение:

Ввод вещественного числа

Цикл for (с параметром)

Вывод с новой строки