Есть ответ 👍

У МЕНЯ ЗАЧЕТ
НУЖНО СДЕЛАТЬ ЗАДАНИЕ В ЭКСЕЛЕ

295
384
Посмотреть ответы 2

Ответы на вопрос:

Хшж
4,5(94 оценок)

Ну а что сделать нужно


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;

Популярно: Информатика