Циклы в Паскале

[bwitcher]

1. Распечатать в столбик таблицу умножения на число n (число n вводится с клавиатуры; 1 < n < 9)

2. Составить программу возведения натурального числа в квадрат, учитывая следующую закономерность:
12 = 1
22 = 1+3
32 = 1+3+5
42 = 1+3+5+7
………………………………….
N2 = 1+3+5+7+9+…+2n-1
Выделенные двойки - квадраты чисел.

Поможете?)))

[Риндера]

1.

for i := 1 to 9 do
   writeln(n, ' * ', i, ' = ', n*i);

Над вторым что-то не думается. Добавлю в пост, если придумаю.

[Utkin]

Как выделенная двойка может быть квадратом числа ? И какого числа? Корня из двух ?

[_-Re@l-_]

Utkin, он имел ввиду что это значок квадрата, т.е. 1^2 = 1, 2^2=1+3, и т.д.

[ROMA2PVT]

2. Составить программу возведения натурального числа в квадрат, учитывая следующую закономерность:

Ну вот как то так:

Uses
 CRT;
var
i,n,k:integer;
s:longint;
begin
ClrScr;
repeat
readln(n);
until n>0;
s:=0;
k:=0;
for i:=1 to n do
begin
if i=1 then
begin
k:=1;
end
else
begin
inc(k,2);
end;
s:=s+k;
writeln(i,'x',2,':=',s);
end;
readkey
end.

[Риндера]

repeat
readln(n);
until n>0;

Оригинальный способ проверки подлинности числа)

[ROMA2PVT]

Оригинальный способ проверки подлинности числа)

этому способу уж тридцать лет как.Или вы предложите свой?

[bwitcher]

Ой, люди, спасибо вам всем большое!!!

[Риндера]

Сообщение от ROMA2PVT

этому способу уж тридцать лет как.Или вы предложите свой?

Просто не встречала такого) Возьму на вооружение.

[Stilet]

Возьму на вооружение.

И добавь

repeat
 readln(n);
 if n<=0 then Write('Неверно. Вводи заново...');
until n>0;

Ато глупо будет выглядеть