1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
end.
Неправильно обозначена основная библиотека.
Робот не знает таких команд.
5 мин 57 сек= 357
Скорость передачи определяется отношением количества информации ко времени
357:357=1
хз правильно ли
Ответ:
Объяснение:
program PrevousAndNext;
var n: integer;
begin
WriteLn('Ввод');
ReadLn(n);
WriteLn ('Перед числом ', n ,' идет число ',n-1 );
WriteLn ('После числа ', n ,' идет число ',n+1 );
end.