Ответы на вопрос:
For i: =1 to sqr(n) do a[i]: =0; i: =1; while(i< n)do begin if(i mod 2 < > 0)then begin a[i]: =1; g: =i; inc(i); end else inc(i); end; for i: =1 to g do if(a[i]=1)then write(sqr(i),' '); readln; readln; end;
Популярно: Информатика
-
antarxanoff200126.09.2021 13:34
-
viktoriavasili06.06.2022 18:39
-
natalyazaprudsozxkk301.09.2020 23:35
-
Bibika200507.04.2020 07:39
-
ВаняСуліма18.11.2020 10:34
-
Даддсаап26.02.2023 20:48
-
LiliyaEgor15.10.2021 11:24
-
Помощниица127.06.2021 02:10
-
СашаВай124.09.2022 13:36
-
янивановсергеевич22.11.2021 02:36