Pascal ABC 1)Вычислить и вывести таблицу умножения на 6 чисел от 1 до 10 Подробно, с объяснениями пожалуйста ((
Pascal ABC
1)Вычислить и вывести таблицу умножения на 6 чисел от 1 до 10
Подробно, с объяснениями пожалуйста ((
Ответ(ы) на вопрос:
Гость
var i, k : integer; // Для расчета используем целые числа
begin
for k := 1 to 6 do begin // Берем числа от 1 до 6
for i := 1 to 10 do begin // Умножаем на числа от 1 до 10
writeln(k, ' x ', i, ' = ', k * i); // Выводим результат умножения
end;
writeln('===');
end;
end.
Не нашли ответ?
Похожие вопросы