// pascalabc.net 3.1, сборка 1213 от 04.04.2016 var i: integer; begin for i: =1 to 11 do writeln(24+i,24.5+i: 5: 1,23.8+i: 5: 1) end. результат выполнения программы: 25 25.5 24.8 26 26.5 25.8 27 27.5 26.8 28 28.5 27.8 29 29.5 28.8 30 30.5 29.8 31 31.5 30.8 32 32.5 31.8 33 33.5 32.8 34 34.5 33.8 35 35.5 34.8
Спасибо
Ответ дал: Гость
компьютер входит в состав технической системы.
компьютер является надсистемой для ос.
Ответ дал: Гость
uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.
Популярные вопросы