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