|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
07.01.2011, 17:50 | #1 (permalink) |
Новичок
Регистрация: 07.01.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Как решать такие задачи?
|
07.01.2011, 17:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Решение проблемы так же зависит от просмотра аналогичных топиков Кто нибудь умеет решать задачки по микропроцессорам на EWB? Советы как решать тесты |
07.01.2011, 21:44 | #5 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
1. вводим число
2. проверяем, есть ли в нем значащие нули 2.1 если есть - находим сумму цифр, используя цикл 2.2 если нет - находим произведение цифр, используя цикл и вычисляем целую часть от деления и остаток от деления, используя соответствующие функции целочисленного деления (mod, div - в BASIC, PASCAL, DELPHI) 3. выводим полученный результат.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
08.01.2011, 01:24 | #8 (permalink) |
Новичок
Регистрация: 07.01.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ребята, я просто впервые сталкнулась с такой вещью как Паскаль :,D И не представляю как это должно всё быть записано! Для меня эта задачка вопрос жизни и смерти.. поэтаму я былаб вам очень благодарна еслиб вы просветилиб меня и написалиб как должно выглядеть решение ((((
|
08.01.2011, 01:26 | #9 (permalink) |
Новичок
Регистрация: 08.01.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ваше сообщение содержит рекламу и удалено по п. 2.8 Правил. Вам дается первое и последнее предупреждение. Модератор.
Последний раз редактировалось MrSTEP; 08.01.2011 в 01:36 |
08.01.2011, 10:37 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да... А ведь вот умрет человек в расцвете лет по случаю нерешенной задачки - и как нам, оставшимся, жить дальше прикажете? Цветы на могилку носить и о прощении до конца дней умолять? Нет уж, проще решение выложить:
Код:
VAR tr,a1,a10,a100,P,S:Word; BEGIN Write('tr= '); ReadLn(tr); a100:=tr div 100; a10:=(tr mod 100) div 10; a1:=tr mod 10; P:=a1*a10*a100; if P=0 then begin S:=a1+a10+a100; WriteLn('Sum= ',S); end else begin WriteLn('Result of division is ',tr div P); WriteLn('Residue of division is ',tr mod P); end; ReadLn; END. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|