!ПАСКАЛЬ! Ввести число и если оно четырехзначное,то найти его цифры, иначе вычесть из числа 100.

1

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

Лучший Ответ!
2014-03-04T13:29:00+04:00
Var a,b,c:integer;
begin
writeln ('введи число');
readln (a);
if (a>999) and (a<10000) then
 begin
 while a>0 do
  begin
  c:=a mod 10;
  b:=b*10+c;
  a:=a div 10;
  end;
 while b>0 do
  begin
  a:=b mod 10;
  writeln (a);
  b:=b div 10;
end;
 end
else
 begin
 a:=a-100;
 writeln (a);
end;
readln;
end.