Question

ДАЮ БАЛЛЫ. ПОМОГИТЕ С ИНФОРМАТИКОЙ, ПРОГРАММА ПАСКАЛЬ

Answer 1

Первый:

• var i,n:integer;
• begin
• Read(n);
• Repeat
• i := i + 1;
• until sqr(i)>n;
• Write(sqr(i));
• end.

Второй:

• var i,n:integer;
• begin
• Read(n);
• While sqr(i)<=n do
• i := i + 1;
• Write(sqr(i));
• end.

Третий:

• var i,n:integer;
• begin
• Read(n);
• For i := 1 to n do
• if sqr(i)>n then break;
• Write(sqr(i));
• end.

Примеры работ: