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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку