Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел (естественно, квадраты должны считаться В ЦИКЛЕ!). Ниже представлен вид экрана во время работы программы, который вам нужно реализовать:

Таблица квадратов
-----------------------------
Число Квадрат
-----------------------------
1 1
2 4
и т.д.

2

Ответы и объяснения

2013-05-03T21:52:19+04:00

program v1;

var a,n: real;

begin

a:= 1;

n:= 10;

while a <= n do begin

                             writeln (a, sqr(a));

                             a:= a+1;

                             end;

end.

 

2013-05-04T02:38:51+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

program kvadrat;
var i, n: integer;
begin
  writeln ('Таблица квадратов');
  writeln ('-----------------');
  writeln (' Число  Квадрат');
  writeln ('-----------------');
  i:= 1;
  n:= 10;
  for i:=1 to n do
  begin
    writeln ('  ',i,'   ', sqr(i));
  end;
  writeln ('-----------------');
end.