Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 07.01.2011, 17:50   #1 (permalink)
julija
Новичок
 
Регистрация: 07.01.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Как решать такие задачи?

Значение переменной tr - трёхзначное натуральное число. Написать программу, которая найдёт целую часть и остаток от целочисленного деления данного числа на произведенияе его цифр или сумму цифр, если в числе есть xоть одна равная нулю цифра. ??!!?
julija вне форума   Ответить с цитированием

Старый 07.01.2011, 17:50
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Решение проблемы так же зависит от просмотра аналогичных топиков

Кто нибудь умеет решать задачки по микропроцессорам на EWB?
Советы как решать тесты

Старый 07.01.2011, 20:35   #2 (permalink)
Fenix
404
 
Аватар для Fenix
 
Регистрация: 10.01.2010
Сообщений: 1,749
Записей в дневнике: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3868
По умолчанию

брать и решать. хоть бы язык указали на котором прогу писать
Fenix вне форума   Ответить с цитированием
Старый 07.01.2011, 20:54   #3 (permalink)
jakson
Member
 
Регистрация: 28.03.2010
Сообщений: 179
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 51
По умолчанию

Цитата:
Сообщение от IlyhaSH Посмотреть сообщение
брать и решать. хоть бы язык указали на котором прогу писать
Я думаю это Паскаль
jakson вне форума   Ответить с цитированием
Старый 07.01.2011, 20:59   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от jakson Посмотреть сообщение
Я думаю это Паскаль
Думать можно всё, что угодно. А почему Паскаль? Почему не СИ? Или Делфи? Или, к примеру, VBasic? Вот пусть топикстартер(ша) нам и прояснит сей вопрос.
P.S. Ох, ну до чего же надоело "выпытывать" подобные вещи у "заказчиков"!!!
Vladimir_S вне форума   Ответить с цитированием
Старый 07.01.2011, 21:44   #5 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

1. вводим число
2. проверяем, есть ли в нем значащие нули
2.1 если есть - находим сумму цифр, используя цикл
2.2 если нет - находим произведение цифр, используя цикл и вычисляем целую часть от деления и остаток от деления, используя соответствующие функции целочисленного деления (mod, div - в BASIC, PASCAL, DELPHI)
3. выводим полученный результат.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 07.01.2011, 23:56   #6 (permalink)
ctpz
Member
 
Регистрация: 07.01.2011
Сообщений: 335
Записей в дневнике: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 61
По умолчанию

такие задачи в purebasik можно решать. вес компилируемого ехешника всего в 2 раза больше, чем размер кода. и поэтому только
ctpz вне форума   Ответить с цитированием
Старый 08.01.2011, 01:16   #7 (permalink)
julija
Новичок
 
Регистрация: 07.01.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

это Паскаль
julija вне форума   Ответить с цитированием
Старый 08.01.2011, 01:24   #8 (permalink)
julija
Новичок
 
Регистрация: 07.01.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Ребята, я просто впервые сталкнулась с такой вещью как Паскаль :,D И не представляю как это должно всё быть записано! Для меня эта задачка вопрос жизни и смерти.. поэтаму я былаб вам очень благодарна еслиб вы просветилиб меня и написалиб как должно выглядеть решение ((((
julija вне форума   Ответить с цитированием
Старый 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)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от julija Посмотреть сообщение
Для меня эта задачка вопрос жизни и смерти..
Да... А ведь вот умрет человек в расцвете лет по случаю нерешенной задачки - и как нам, оставшимся, жить дальше прикажете? Цветы на могилку носить и о прощении до конца дней умолять? Нет уж, проще решение выложить:
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:45.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.