Вопрос от посетителя:
Дано двузначное число .найти число десятков в нем
Илюха отвечает:
Var a:integer;
begin
readln(a);
Write (a div 10);
end.
Дано двузначное число .найти число десятков в нем
Var a:integer;
begin
readln(a);
Write (a div 10);
end.