Помогите если не сложно.Разработать программу которая по введённому трёхзначному числу которая выдаёт отдельно три его цифры напечатанные друг под другом
Answers & Comments
zerguzik2
Плз. лучший ответ //////////////////////////// program g; var a:Integer; begin writeln('Введите трёхзначное число'); readln(a); writeln(''); writeln(a); writeln(a div 100); a:=a mod 100; writeln(' ', a div 10); a:= a mod 10; writeln(' ', a); end.
0 votes Thanks 0
Dominik336
А можно ли заменять 100 и 10 на другие числа к пимеру 4 и 2
Answers & Comments
////////////////////////////
program g;
var
a:Integer;
begin
writeln('Введите трёхзначное число');
readln(a);
writeln('');
writeln(a);
writeln(a div 100);
a:=a mod 100;
writeln(' ', a div 10);
a:= a mod 10;
writeln(' ', a);
end.