Question

Напишите программу, которая запрашивает целое трёхзначное число и на экран выдаёт сколько сотен содержится в данном числе​ помогите пожалуйста срочно

Answer 1

Ответ:

var a,c: integer;

begin

write('Введите значение a');

read (a);

c:=a div 100

write('Ответ c=',c);

end.