Перевести с языка кумир на язык паскаль заранее спасибо - Pascal (248810)

Узнай цену своей работы

Формулировка задачи:

Решение задачи: «Перевести с языка кумир на язык паскаль заранее спасибо»

textual
Листинг программы
нач
цел i
цел таб a[1:3]
вывод "Введите 3 числа", нс
нц для i от 1 до 3
ввод a[i]
кц
нц для i от 1 до 3
если a[i]>0 то вывод a[i]*a[i],нс
все
кц

кон

Объяснение кода листинга программы

  1. Объявлены две целочисленные переменные: i и a[1:3].
  2. Выводится сообщение Введите 3 числа, нс.
  3. Запускается цикл nц для i от 1 до 3.
  4. В каждой итерации цикла происходит ввод значения переменной a[i].
  5. После завершения цикла запускается еще один цикл nц для i от 1 до 3.
  6. В каждой итерации второго цикла проверяется, больше ли значение переменной a[i] нуля.
  7. Если условие выполняется, то выводится значение переменной a[i]*a[i],нс.
  8. После завершения второго цикла выполняется команда все,кц.
  9. Программа завершается командой кон.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы