Предмет: Информатика,
автор: milushaprincess
Нужно определить состав трехзначного числа и записать в Pascal Abc
Ответы
Автор ответа:
0
var
a,i:integer;
begin
write('Введите число:');
readln(a);
writeln('Единицы: ',a mod 10);
a:=a div 10;
writeln('Десятые: ',a mod 10);
writeln('Сотые: ',a div 10);
readln;
end.
a,i:integer;
begin
write('Введите число:');
readln(a);
writeln('Единицы: ',a mod 10);
a:=a div 10;
writeln('Десятые: ',a mod 10);
writeln('Сотые: ',a div 10);
readln;
end.
Похожие вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: dashaniko96
Предмет: Алгебра,
автор: Аноним
Предмет: История,
автор: Зааяяц
Предмет: География,
автор: Лиза8991441