Дано трехзначное число определить количество сотен, десятков и единиц - Pascal
Формулировка задачи:
Дано трехзначное число определить кол-во сотен,десятков и единиц.Помогите решить!
Решение задачи: «Дано трехзначное число определить количество сотен, десятков и единиц»
textual
Листинг программы
var a,b,c,i:integer;
begin
Write('Vvedite 3-x znachnoe chislo: ');
Read(i);
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
Write('Kolichestvo soten: ',a,', Kolichestvo desjatkov: ',b,', Kolichestvo edinic: ',c);
Readln;
end.