Помогите с Паскалем! Не понимаю..
Приложения:
Ответы на вопрос
Ответил restIess
0
var
a : longint;
begin
readln(a);
write((a div 100)mod 10);
end.
NikaSmir45:
Что делать если в входных данных вместо 7 выходит 4?
вы у меня код копировали или переписывали?)
Переписывали
а какой тип у переменной a? такой же как у меня?
Ответил HappyMel
0
Ответ:
Объяснение:
var
a, b: Integer;
begin
WriteLn('Введите число: ');
read(a);
b := ((a mod 1000) div 100);
writeln('К разряду сотен относится цифра: ', b);
end.
Новые вопросы