Паскаль
Найти разность между первыми двумя и послед. двумя цифрами заданного четырехзначного числа.
Program delta;
var
a:longint;
begin
readln(a);
writeln(a div 100-a mod 100)
end.
Оцени ответ
