Задание:
Решите паскаль срочно с помощью цикла с предусловием. Вычислить значение функции y=x2 (парабола), для всех x от 1 до n сшагом.
Решение:
var y: array [1… 1000] of integer; x,n: integer; beginreadln (n); for x: =1 to n do beginy[x]: =x*x; writeln (y[x]); end; end.
Знаете другой ответ?