hasanchik H hasanchik Регистрация 14 Дек 2013 Сообщения 84 Репутация 0 Спасибо 0 Монет 0 6 Ноя 2022 #1 вывести на монитор квадраты чисел от 1 до 10 с использованием цикла до(Pascal)
серик12 С серик12 Регистрация 16 Июн 2013 Сообщения 92 Репутация 0 Спасибо 0 Монет 0 6 Ноя 2022 #2 program Test; uses sysutils; var x:integer; begin for x:=1 to 10 do writeln(IntToStr(x)+'^2 = '+IntToStr(x*x)); end. Позитивный голос 0
program Test; uses sysutils; var x:integer; begin for x:=1 to 10 do writeln(IntToStr(x)+'^2 = '+IntToStr(x*x)); end.
DIMANNN D DIMANNN Регистрация 19 Июл 2013 Сообщения 86 Репутация 0 Спасибо 0 Монет 0 6 Ноя 2022 #3 var i:integer; begin // С циклом for for i:=1 to 10 do writeln(i, '^2=', sqr(i)); // C циклом while i := 1; while i < 11 do begin writeln(i, '^2=', sqr(i)); inc(i) end; end. Позитивный голос 0
var i:integer; begin // С циклом for for i:=1 to 10 do writeln(i, '^2=', sqr(i)); // C циклом while i := 1; while i < 11 do begin writeln(i, '^2=', sqr(i)); inc(i) end; end.
Фак777 Ф Фак777 Регистрация 14 Июл 2013 Сообщения 89 Репутация 0 Спасибо 1 Монет 0 6 Ноя 2022 #4 Вывел. Что дальше с этим делать?) Позитивный голос 0
Попа П Попа Регистрация 12 Июн 2013 Сообщения 90 Репутация 0 Спасибо 0 Монет 0 6 Ноя 2022 #5 Что за цикл до? Есть цикл for … do, есть while … do. Они оба с do на конце. Есть еще repeat … until. Позитивный голос 0