Question

Задача №2942. Число десятков двузначного числа Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt. Первые тесты не всегда совпадают с примерами из условия. Ввод Вывод 42 4

Answer 1

Var
s:integer;
begin
readln(S);
s:=s div 10;
writeln(s);
end.