С ИНФОРМАТИКОЙ, ПРОГРАММА ПАСКАЛЬ - вопрос №13236739 от leonovapodkina 30.12.2022 13:16

Question

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

leonovapodkina · 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.Примеры работ:...