Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
1 / 1 / 0
Регистрация: 19.10.2015
Сообщений: 23
1

Если сумма цифр введенного трехзначного числа кратна трем - увеличить его на 1, иначе уменьшить в 2 раза

08.11.2015, 23:33. Просмотров 775. Ответов 5
Метки нет (Все метки)

Задача: Если сумма цифр введенного трехзначного числа Н кратна трем, то увеличить само число на единицу, иначе - уменьшить число в двое.
0
Миниатюры
Если сумма цифр введенного трехзначного числа кратна трем - увеличить его на 1, иначе уменьшить в 2 раза  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2015, 23:33
Ответы с готовыми решениями:

Если сумма цифр введенного трехзначного числа N четная, то увеличить число вдвое, иначе найти сумму N+1N
Если сумма цифр введенного трехзначного числа N четная, то увеличить число вдвое, иначе найти сумму...

если сумму цифр введенного трехзначного числа N кратна трем, то увеличить число на единицу, иначе-уменьшить вдвое
если сумму цифр введенного трехзначного числа N кратна трем, то увеличить число на единицу,...

Дано двузначное число. Определить: кратна ли трем сумма его цифр; кратна ли сумма его цифр числу а
Дано двузначное число. Определить: А) кратна ли трем сумма его цифр; Б) кратна ли сумма его цифр...

Если число > 0, то увеличить его на единицу, иначе уменьшить на 1
Дано целое число А. Если значение А > 0 , то необходимо увеличить его на единицу, иначе уменьшить...

5
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29625 / 19495 / 7642
Регистрация: 22.10.2011
Сообщений: 34,015
Записей в блоге: 6
08.11.2015, 23:48 2
SABIRCHIK, код лучше в виде текста показывать, а не картинкой, мало кому интересно набирать с этой картинки, чтобы проверить, в чем проблема.
0
1 / 1 / 0
Регистрация: 19.10.2015
Сообщений: 23
08.11.2015, 23:53  [ТС] 3
а как скопировать из паскаля?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29625 / 19495 / 7642
Регистрация: 22.10.2011
Сообщений: 34,015
Записей в блоге: 6
08.11.2015, 23:54 4
А файл noname2.pas нельзя открыть в Блокноте и скопировать оттуда?
0
1 / 1 / 0
Регистрация: 19.10.2015
Сообщений: 23
09.11.2015, 00:12  [ТС] 5
я (censored) сохранить никак не могу, дибильный паскаль этот. Второй раз качаю программу, тупая попадается, там где не надо просит ;. я не понимаю как копировать текст из Паскаля

Добавлено через 21 секунду
прошу прощения за мат, просто накипело.
0
Модератор
7468 / 3829 / 2721
Регистрация: 17.08.2012
Сообщений: 12,240
09.11.2015, 01:46 6
 Комментарий модератора 
SABIRCHIK, рекомендую Вам ознакомиться с правилами форума. Нецензурные выражения запрещены в любом виде. Если будете и далее нарушать правила форума, я поступлю с Вами нехорошо.

Файл -> Сохранить как..., записываете на бумажке путь до файла, затем сохраняете его, далее в проводнике windows добираетесь до файла, открываете его с помощью блокнота и копируете текст.

Добавлено через 14 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var n, x: integer;
 
begin
  repeat
    write('N in 100..999;  N = ');
    readln(n)
  until (n >= 100) and (n <= 999);
  if (n div 100 + n div 10 mod 10 + n mod 10) mod 3 = 0
    then inc(n)
    else n := n div 2;
  write('Result = ', n);
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.11.2015, 01:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Если число f равно 26, то увеличить его на 9, иначе уменьшить на 19
помогите, пожалуйста, написать команду &quot;если...то...иначе&quot; для решения следующей задачи: если...

Определить, кратна ли двум сумма цифр трехзначного числа
Выяснить кратна ли 2-ум сумма цифр 3-ех значного числа

Дано число. Если оно от -10 до 10 не включительно, то увеличить его на 5, иначе уменьшить на 10
Дано число. Если оно от -10 до 10 не включительно, то увеличить его на 5, иначе уменьшить на 10.

Если первое больше второго,то увеличить его на 0,5 иначе уменьшить в 10 раз
Даны два числа.Если первое больше второго,то увеличить его на 0,5 иначе уменьшить в 10 раз.Второе...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.