Меню сайта

Задача №26

Написатьалгоритм читающий -«N» ивыдающий на экран квадраты чисел от 1 до «N».

uses crt-

var i,n:integer-

begin-

clrscr-

writeln(‘Введите число N’)-

readln(n)-

FOR i := 1 TO n do

begin-

writeln(i * i)-

end-

end.

Категория: Разветвляющиеся программы | Дата: 05.01.13

Меню раздела
Блок