Var a: integer;
begin
write('Введите число: '); read(a);
if((a div 10) = (a mod 10)) then writeln('Цифры одинаковые')
else writeln('Цифры не одинаковые');
end.
<span>C#
Создайте приложение, в котором по нажатию клавиши мыши в месте щелчка выводилось название нажатой клавиши мыши.
</span>
Var a,b:integer;
Begin
Readln(a,b);
Write(a+1/a-1+18*a*y);
End.
Алг
нач
цел a,b
ввод a,b
если a = b
то a:= 0
b:= 0
все
если a>b
то a:= a
b:= a
иначе a:= b
b:= b
все
кон