Предмет: Информатика,
автор: Numb88
Написать программу на Паскале: Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти это число.
Numb88:
помогите плиз!
нужно что бы ноль считалось как часть числа
Ответы
Автор ответа:
1
Var
A: integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A := (A mod 10)*100 + (A div 10);
WriteLn(A);
End.
A: integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A := (A mod 10)*100 + (A div 10);
WriteLn(A);
End.
Если ввести число 700,то ноль не считается в итоге за чисто и получается 70,а должно быть 070
чисто=число*
Скажите, с каких пор ведущий ноль считается частью числа?
Вы ж написали в задаче "Найти это число", про ведущие нули там ничего нет.
училка докапалась :c Сам понимаю что про это ничего не сказано,но она всегда какие-либо придирки и усложнения давать любит.Вот уже сколько дней сижу всю голову сломал и не знаю как быть дальше(( вот мой код который работает только в pascal.net а в обычным ошибку выдает "Операнды имеют неприводимые типы"
( вот программа) Program DZ6;
var x,a,b,c:integer;
z:string;
begin
Writeln('Введите трёхзначное число a');
readln(x);
a:=x div 10;
b:=x mod 10;
c:=b*100+a;
z:='0'+a;
If (b=0) then writeln ('Перестановленное местами =',z)
else Writeln ('Перестановленное местами =',c);
end.
var x,a,b,c:integer;
z:string;
begin
Writeln('Введите трёхзначное число a');
readln(x);
a:=x div 10;
b:=x mod 10;
c:=b*100+a;
z:='0'+a;
If (b=0) then writeln ('Перестановленное местами =',z)
else Writeln ('Перестановленное местами =',c);
end.
ответьте в лс
Похожие вопросы
Предмет: Русский язык,
автор: toktosunovabegaiym13
Предмет: Геометрия,
автор: 280920077777773529
Предмет: Қазақ тiлi,
автор: dostonibragimov023
Предмет: Математика,
автор: юля1132
Предмет: География,
автор: Romahka001