Паскаль, помогите пожалуйсиа. Дано трехзначное число. Сообщить число сотен, десятков и единиц в этом числе.

Question

Надежда Моисеева · Accepted Answer

зачем так много переменных? 
 
var 
 a: integer; 
 
begin 
 readln(a); 
 write(a div 100,' сотен ', a div 10 mod 10,' десятков ', a mod 10,' единиц'); 
end.

Илья Королев · Answer

div - целочисленное деление, например 937 div 100 = 9 
mod - остаток от деления, например 548 div 100 = 48 
удачи!

Наталья Шибаева · Answer

Этож легко 
var 
x,y,z,a:integer; 
begin 
writeln('vvedite'); 
readln(a); 
x:=a div 100; 
y:=(a mod 100) div 10; 
z:=(a-x)-y; 
writeln('sotni ',x,'desytki ', y, edinisi ',z); 
readln; 
end.