Var
A,N:integer;
Begin
Write('N = ');ReadLn(N);
For A:= 10 to 99 do
if A mod 10 + A div 10 = N then Write(A,' ')
End.
Пример работы программы:
N = 9
18 27 36 45 54 63 72 81 90
Изначально, ТОН, нечетно
ОН, убрали первую букву
ПО, заменили на след. по алфавиту
ПО, четное кол-во символов,
ПАО, добавили А в середину
РБП, заменили на след по алф.
Ответ: РБП
Данный оператор предписывает запомнить некоторое значение в переменой. Значение и идентификатор переменой разделены парой знаков :=<span>. Типы объектов с обеих сторон знака </span>:=<span>должны строго совпадать, за исключением того случая, когда тип переменой - REAL, а тип выражения - INTEGER. </span>
<span>Общий вид оператора: </span>
<span>< переменная >:= < выражение >
</span>
Ответ:
Уберите точку с запятой. перед else
Объяснение:
If <Операторы>
else <Операторы>
Устройства ввода и вывода данных Устройства ввода и вывода - устройства взаимодействия компьютера с внешним миром: с пользователями или другими компьютерами. Устройства ввода позволяют вводить информацию в компьютер для дальнейшего хранения и обработки, а устройства вывода - получать информацию из компьютера.
Не за что)