Var a: integer;begin readln (a); if (a mod 10 = a div 100) then write ('YES') else write ('NO');end.
Var a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b := a div 10;
c := a mod 10;
writeln('Сумма: ', b + c);
writeln('Произведение: ', b*c);
writeln('Перестановка: ', c,b);
end.
В) одним байтом; или я что то не поняла!
Как
Когда
То
Если конечно это все слова..