begin var n:=ReadInteger('n ='); Range(1,n).Select(i->i*i).Println; end.
Пример: n = 5 1 4 9 16 25
2) var n,i: integer; begin write('N = '); readln(n); i:=0; while (i<n) do begin i:=i+1; write(i*i,' '); end; end.
3) var n,i: integer; begin write('N = '); readln(n); i:=0; repeat i:=i+1; write(i*i,' '); until i=n; end.
Пример: N = 5 1 4 9 16 25
1 votes Thanks 1
Crafter08
Можно ли написать данную программу с while, repeat?
Crafter08
Он получил баллы за свой ответ, никто его больше решать не заставляет, я просто поинтересовался у Вас, высококвалифицированных специалистов в области програмирования
Crafter08
Прошу прощения, школьную программу я не в силах изменить
Crafter08
Вы, наверное, рассуждаете о школах с уклоном на Айти и ИКТ, а вот в обычных школах основываются на обычную программу ФГОС
Answers & Comments
Verified answer
1)// PascalABC.NET 3.3
begin
var n:=ReadInteger('n =');
Range(1,n).Select(i->i*i).Println;
end.
Пример:
n = 5
1 4 9 16 25
2)
var n,i: integer;
begin
write('N = ');
readln(n);
i:=0;
while (i<n) do
begin
i:=i+1;
write(i*i,' ');
end;
end.
3)
var n,i: integer;
begin
write('N = ');
readln(n);
i:=0;
repeat
i:=i+1;
write(i*i,' ');
until i=n;
end.
Пример:
N = 5
1 4 9 16 25