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

Ответы 2

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.
- Автор:
  lilly41
- 6 лет назад
- 0
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.
- Автор:
  jacevccq
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы