Перевести с языка кумир на язык паскаль заранее спасибо - Pascal (248810)
Формулировка задачи:
Решение задачи: «Перевести с языка кумир на язык паскаль заранее спасибо»
textual
Листинг программы
нач цел i цел таб a[1:3] вывод "Введите 3 числа", нс нц для i от 1 до 3 ввод a[i] кц нц для i от 1 до 3 если a[i]>0 то вывод a[i]*a[i],нс все кц кон
Объяснение кода листинга программы
- Объявлены две целочисленные переменные: i и a[1:3].
- Выводится сообщение
Введите 3 числа
, нс. - Запускается цикл nц для i от 1 до 3.
- В каждой итерации цикла происходит ввод значения переменной a[i].
- После завершения цикла запускается еще один цикл nц для i от 1 до 3.
- В каждой итерации второго цикла проверяется, больше ли значение переменной a[i] нуля.
- Если условие выполняется, то выводится значение переменной a[i]*a[i],нс.
- После завершения второго цикла выполняется команда все,кц.
- Программа завершается командой кон.