Ответ:
Объяснение:
program PrevousAndNext;
var x: integer;
begin
WriteLn('Ввод');
ReadLn(x);
WriteLn ('Следующее число после ', x ,' это число ',x+1 );
WriteLn ('Предыдущее число от ', x ,' это число ',x-1 );
end.
Тяжело в учении легко в бою
22 символа без учета пробелов
Информационный объем равен 22*1 байт = 22 байта или 176 бит
27 символов с учетом пробелов
Информационный объем равен 22*1 байт = 27 байт или 216 бит
begin
var n:=ReadInteger('n=');
var m:=(n div 1000) mod 10;
var p:=1;
while n>0 do
begin
p*=n mod 10;
n:=n div 10
end;
if (p mod 5 =0) and(p mod m<>0) then Print('Верно')
else Print('Неверно')
end.
Программа реализована на языке Паскаль
Var i:integer;
x:array[1..5]of integer;
begin
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.