Помогите пожалуйста!!!
1) составить программу для вычисления корней уравнения вида ax=0.
2) выделить из 4х значного числа количество тысяч, сотен, десятков, единиц.

1

Ответы и объяснения

Лучший Ответ!
2014-03-30T16:47:34+04:00
Var a:integer;
begin
readln(a);
if a=0 then writeln('X-л.ч.')
else writeln('X=0');
end.



var a:integer;
begin
readln(a);
writeln(a div 1000,' тыс. ',(a div 100) mod 10,' сот. ',(a mod 100) div 10,' десят. ', a mod 10,' ед.');
end.