Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 02.04.2018
Сообщений: 63

Дано целое число. Если оно двухзначное, найдите произведение его цифр, в противном случае напечатайте слова "не могу"

02.04.2018, 20:43. Показов 3019. Ответов 1
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Дано целое число. Если оно двухзначное, найдите произведение его цифр, в противном случае напечатайте слова "не могу".
0
Лучшие ответы (1)
Сообщение: #12273933
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 02.04.2018, 20:43
Ответы с готовыми решениями:

Дано целое число. Если оно является положительным, то прибавить к нему 1, в противном случае не изменять его
Помогите, пожалуйста, с html кодом. Дано целое число. Если оно является положительным, то прибавить к нему 1, в противном случае не...

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его
Подскажите пожалуйста или правильно я написал решения,а то всё работает,но мне кажется, что где-то затупил) /* Дано целое число....

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. ...

1
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
03.04.2018, 07:35
Лучший ответ Сообщение было отмечено KiberUm как решение

Решение

Pascal
1
2
3
4

if (x>=10) and (x<=99) then
 p:=(x div 10)*(x mod 10)
else
 writeln('не могу');
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 03.04.2018, 07:35
Помогаю со студенческими работами здесь

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести на экран.

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него
Когда ввожу положительное число,всё работает, ввожу отрицательное к примеру -7,мне выбивает -9...в чем ошибка,подскажите пожалуйста) ...

Дано целое число.если оно евляется положительным то прибаветь к нему 1,в противном случае вычесть из него 2.вывести полученое число
Дано целое число.если оно евляется положительным то прибаветь к нему 1,в противном случае вычесть из него 2.вывести полученое число ...

Дано целое число, если оно является нечетным, то увеличить в 2 раза, в противном случае уменьшить в 2 раза
Дано целое число, если оно является нечетным, то увеличить в 2 раза, в противном случае уменьшить в 2 раза. Результат вывести на экран. ...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Камера 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 и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru