Клавиатура по ощущения гладкая.Вода на ощущение жидкая.
Вот решение: все на листочке, там сами ответы, если надо решение, могу позже описать
Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно
#include <iostream>
int main()
{
int a,b;
std::cin >> a >> b;
if (a==b)
std::cout <<"EQUALS\n";
else
{
int max=(a>b) ? a:b;
float v=(a>b) ? float(a)/b:float(b)/a;
std::cout <<"max: " <<max <<" v " <<v <<" raz\n";
}
return 0;
}