Вывести на экран таблицу квадратов - PascalABC.NET
Формулировка задачи:
Квадраты
Нужно вывести на экран таблицу квадратов.
Input
Со стандартного устройства ввода вводится 1 натуральное число – N, не превосходящее
100.
Output
Нужно выдать на стандартное устройство вывода N строк вида
K^2 = M
где M – одно целое число, являющееся квадратом числа K, и числа K идут по
возрастанию от 1 до N.
1^2 = 1
2^2 = 4
3^2 = 9
4^2 = 16
5^2 = 25
ТАКОЕ СОСТАВЛЕНИЕ ПРОГРАММЫ НЕ ВЕРНО!! НУЖНО ЕЩЕ С ПЕРЕМЕННОЙ М СОСТАВИТЬ!! ЗАРАНЕЕ СПАСИБО
Решение задачи: «Вывести на экран таблицу квадратов»
textual
Листинг программы
program test; var N, K, M:integer; begin read (N); for K:=1 to N do begin M:=sqr(K); writeln(K, '^2=',M); end; end.
Объяснение кода листинга программы
В данном коде выполняется следующие действия:
- В первой строке объявляются три переменные типа integer: N, K, M. Переменная N инициализируется значением, которое считывается с помощью функции read().
- Во втором блоке кода выполняется цикл for, который начинается с K=1 и выполняется до тех пор, пока K меньше или равно N.
- Внутри цикла вычисляется значение переменной M как квадрат значения переменной K с помощью функции sqr().
- Значение переменной M выводится на экран с помощью функции writeln(). При этом в качестве аргументов функции writeln() используются переменная K и строка, представляющая собой квадрат значения переменной K, заключенная в кавычки.
- После завершения цикла выполняется завершающий блок кода, который включает в себя закрытие фигурных скобок и завершение программы.