Другие вопросы по теме Информатика
ukubasov
04.02.2021 19:27
ната5810
04.02.2021 19:26
katarina1002
22.10.2019 09:43
69Maxsim96
22.10.2019 09:45
Pavlo1248
22.10.2019 09:49
anastasiya258
22.10.2019 09:52
Немножко000Фетешист
03.05.2020 12:41
Elnura85
03.05.2020 12:42
Популярные вопросы
- 4. Вкажіть хімічний елемент, катіони якого відіграють важливу роль...
1 - Для острого угла а найдите sina, cosa, tga, если ctg a=9/40....
2 - решить разность целых чисел....
3 - Діагональ осьового перерізу циліндра 13 см. Знайти висоту , радіус...
3 - Дві прямі перетинаються. чому дорівнюють утворені кути якщо різниця...
3 - ПРОВЕРОЧНАЯ РАБОТА ПО ТЕМЕ «ПОЭТЫ 19 ВЕКА: Ф.И.ТЮТЧЕВ, А.А.ФЕТ....
3 - 5 атомив карбона Чи 2 атома алюминия...
2 - Как называется явление вымывания природными водами пустот в легкорастворимых...
2 - Объясните высказывание Вы никогда не будете счастливы, если будете...
2 - какое количество энергии нужно затратить чтобы воду, массой 2 кг...
2
Первый:
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.Примеры работ: