С ИНФОРМАТИКОЙ, ПРОГРАММА ПАСКАЛЬ - вопрос №13236739 от MariSar 24.02.2022 04:17

Question

Информатика: С ИНФОРМАТИКОЙ, ПРОГРАММА ПАСКАЛЬ

MariSar · Answer

Первый:var i,n:integer; beginRead(n);Repeati := i + 1;until sqr(i) n; Write(sqr(i));end.Второй:var i,n:integer; beginRead(n);While sqr(i) =n doi := i + 1; Write(sqr(i));end.Третий:var i,n:integer; beginRead(n);For i := 1 to n doif sqr(i) n then break; Write(sqr(i));end.Примеры работ:...