Технический форум - Как решать такие задачи?

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Как решать такие задачи? (http://www.tehnari.ru/f41/t44418/)

julija

07.01.2011 17:50

Как решать такие задачи?

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

Fenix

07.01.2011 20:35

брать и решать. хоть бы язык указали на котором прогу писать

jakson

07.01.2011 20:54

Цитата:

Сообщение от IlyhaSH (Сообщение 440773)

брать и решать. хоть бы язык указали на котором прогу писать

Я думаю это Паскаль

Vladimir_S

07.01.2011 20:59

Цитата:

Сообщение от jakson (Сообщение 440807)

Я думаю это Паскаль

Думать можно всё, что угодно. А почему Паскаль? Почему не СИ? Или Делфи? Или, к примеру, VBasic? Вот пусть топикстартер(ша) нам и прояснит сей вопрос.
P.S. Ох, ну до чего же надоело "выпытывать" подобные вещи у "заказчиков"!!!

AlexZir

07.01.2011 21:44

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

ctpz	07.01.2011 23:56

такие задачи в purebasik можно решать. вес компилируемого ехешника всего в 2 раза больше, чем размер кода. и поэтому только

julija

08.01.2011 01:16

это Паскаль;)

julija

08.01.2011 01:24

Ребята, я просто впервые сталкнулась с такой вещью как Паскаль :,D И не представляю как это должно всё быть записано! Для меня эта задачка вопрос жизни и смерти.. поэтаму я былаб вам очень благодарна еслиб вы просветилиб меня и написалиб как должно выглядеть решение :(((((

олеген

08.01.2011 01:26

Ваше сообщение содержит рекламу и удалено по п. 2.8 Правил. Вам дается первое и последнее предупреждение. Модератор.

Vladimir_S

08.01.2011 10:37

Цитата:

Сообщение от julija (Сообщение 441032)

Для меня эта задачка вопрос жизни и смерти..

Да... А ведь вот умрет человек в расцвете лет по случаю нерешенной задачки - и как нам, оставшимся, жить дальше прикажете? Цветы на могилку носить и о прощении до конца дней умолять? Нет уж, проще решение выложить:

Код:

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.

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

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице