Вывести таблицу квадратов первых десяти целых положительных чисел.

27.04.2010, 15:03. **Показов** 3606. **Ответов** 2

помогите пожалуйста решить.
Нужно вывести таблицу квадратов первых десяти целых положительных чисел.

@DeLuxe · 27.04.2010, 15:18

Pascal

var i:integer;
begin
for i:=1 to 10 do write(sqr(i),' ');
end.

@Achmed · 27.04.2010, 15:30

Pascal

Program kvadrat;
uses crt;
var i,j:integer;
begin clrscr;
i:=1;
for j:=1 to 10 do
begin
writeln (i, ' Квадрат = ', sqr(i));
i:=i+1;
end;
readln
end.

PS Это случайно задача не с книги какой-то? А то у меня на информатике задача точь в точь была

Dasha)))
		1
	Вывести таблицу квадратов первых десяти целых положительных чисел. 27.04.2010, 15:03. Показов 3606. Ответов 2 Метки нет (Все метки) помогите пожалуйста решить. Нужно вывести таблицу квадратов первых десяти целых положительных чисел.

Опции темы

Решение