Предмет: Информатика,
автор: Аноним
Составьте ПОЖАЛУЙСТА программу выделения цифр из трехзначного числа. В ПАСКАЛЕ. 99 БАЛЛОВ ДАЮ.
Ответы
Автор ответа:
1
Program n_1;
var a, b, c, d:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:= a div 100 mod 10;
writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');
end.
Интересные вопросы
Предмет: Русский язык,
автор: dimahlopkov91
Предмет: Английский язык,
автор: sofiakasianenko965
Предмет: Қазақ тiлi,
автор: nargizaramazan972
Предмет: История,
автор: dilnaz061027
Предмет: Математика,
автор: DanyKart