Задача - удалить цифры 3 и 7 из числа, пользуясь операциями div/mod и циклом

@sane4ka · Регистрация: 10.04.2012

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program lab2;
uses crt;
var a,b,c,d:longint;
begin
clrscr;
writeln('введите число');
readln(a);
b:=1000000000;
repeat
begin
c:=a div b;
if c>1 then
begin
if (c<>3) and (c<>7) then
write(c)
end
else
b:=b/10;
end
until (b<10);
readln;
end.

при такой вот проге компилятор выдает мне следующую ошибку:
lab2.pas(18,5) error: Incompatible types: got "extended" expected "longint"
18я строка это вот эта - b:=b/10;

С паскалем не сказать что особо дружу, так что сильно строго не судите)
Что это за ошибка, как ее исправить? может кто-то подскажет правильный вариант такой проги?

Добавлено через 10 минут
заменила в этой ошибочной строке "/" операцией div, программа просто зацикливается

@Г.Р. · 10.04.2012, 22:29

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program lab2;
uses crt;
var a,b,c,d:longint;
begin
     clrscr;
     writeln('ââåäèòå ÷èñëî');
     readln(a);
     b:=1000000000;
     repeat
     begin
          c:=a div b;
          if c>=1 then
          begin
          if (c mod 10<>3) and (c mod 10<>7) then{в с храниться после какого то момента число,
большее, чем десять, так что нужно рассматривать именно последнюю цифру числа с}
             write(c mod 10)
          end;
//          else
          b:=b div 10;{в любом случае нужно уменьшать b, иначе при с=13 к примеру (a=137)
будет плохо, и мы никогда не попадём сюда}
     end
     until (b<10);
     readln;
end.

@sane4ka · 10.04.2012, 22:32 **[ТС]**

она все равно зацикливается, не пойму почему(

@Г.Р. · 10.04.2012, 23:16

там в конце надо что то ввести
строка readln; под номером 21
если вы про это

@sane4ka · 11.04.2012, 19:38 **[ТС]**

нет, не нужно, это ведь просто задерживает экран, ждет нажатия enter

она просто начинает писать цифры, стоящие в начале числа, бесконечно

@Г.Р. · 11.04.2012, 20:13

Это очень странно, так как у меня проблем нет..
Да и как цикл может быть вечным, если b все время уменьшается..
Попробуйте стереть полностью строчку с else, на всякий случай.
Да и небольшая пометка, данное решение верно только для чисел больших нуля и меньших чем b*10.

@sane4ka · 11.04.2012, 20:21 **[ТС]**

вот и я не понимаю, почему так происходит, всё проверила на 100 раз, ошибок нет..
ну в принципе в LONGINTе как раз 10 разрядов, так что число разрядом больше просто заглючит, а отрицательное... надеюсь препод не будет столь жесток ко мне)

@Г.Р. · 12.04.2012, 00:43

Возможно глюк компилятора..
С отрицательными все просто:выводишь минус,если а меньше нуля и берешь по модулю!

Pascal
1
2
3
4
5
 if(a<0) then
 begin
  write('-');
  a:=abc(a);
 end;

вроде так

@sane4ka · 21.04.2012, 22:02 **[ТС]**

Сообщение от Г.Р.

Возможно глюк компилятора..
С отрицательными все просто:выводишь минус,если а меньше нуля и берешь по модулю!

Pascal
1
2
3
4
5
 if(a<0) then
 begin
  write('-');
  a:=abc(a);
 end;

вроде так

ок, спасибо, это тоже учту))
кстати, как сделать, чтобы нули из числа не пропадали? из середины числа-то они у меня не уходят, я там подкорректировала программу, но препод ввел число 0023804... как сделать, чтобы первые нули были выведены в ответе?

@Г.Р. · 21.04.2012, 23:07

надо всё переделать

совсем!
все числа не хранят передние нули.
так что тогда это уже работа со строками или посимвольная работа!

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@sane4ka 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 5
	10.04.2012, 22:32 [ТС]
	она все равно зацикливается, не пойму почему( 0

@Г.Р. 71 / 71 / 72 Регистрация: 18.01.2012 Сообщений: 132
	10.04.2012, 23:16
	там в конце надо что то ввести строка readln; под номером 21 если вы про это 0

@sane4ka 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 5
	11.04.2012, 19:38 [ТС]
	нет, не нужно, это ведь просто задерживает экран, ждет нажатия enter она просто начинает писать цифры, стоящие в начале числа, бесконечно 0

@Г.Р. 71 / 71 / 72 Регистрация: 18.01.2012 Сообщений: 132
	11.04.2012, 20:13
	Это очень странно, так как у меня проблем нет.. Да и как цикл может быть вечным, если b все время уменьшается.. Попробуйте стереть полностью строчку с else, на всякий случай. Да и небольшая пометка, данное решение верно только для чисел больших нуля и меньших чем b*10. 0

@sane4ka 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 5
	11.04.2012, 20:21 [ТС]
	вот и я не понимаю, почему так происходит, всё проверила на 100 раз, ошибок нет.. ну в принципе в LONGINTе как раз 10 разрядов, так что число разрядом больше просто заглючит, а отрицательное... надеюсь препод не будет столь жесток ко мне) 0

@Г.Р. 71 / 71 / 72 Регистрация: 18.01.2012 Сообщений: 132
	21.04.2012, 23:07
	надо всё переделать совсем! все числа не хранят передние нули. так что тогда это уже работа со строками или посимвольная работа! 0