Помогите, пожалуйста)
Составить программу, выводящую на экран таблицу квадратов натуральных чисел от 1 до n
Таблица
1 1
2 4
3 9
4 16
5 25
6 36
Составить программу, выводящую на экран таблицу квадратов натуральных чисел от 1 до n
Таблица
1 1
2 4
3 9
4 16
5 25
6 36
More Questions From This User See All
Answers & Comments
var a: array [1..100] of integer;
i,n ,k: integer;
Begin
Writete('N = ');
readln(n);
Write('кол-во чисел: ');
readln(k);
Write('Результат: ');
For i:=1 to k do
begin
randomize;
a[i]:= random(50)-25;
write(a[i], ' '); inc(k);
end;
i:= 1; k:=0;
Writeln;
Write('Первые ', n, ' квадратов нат. чисел: ');
repeat
if a[i]>0 then begin write(sqr(a[i]), ' '); ink(k); end;
i:= i+1;
until k>n;
end.