Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 24.12.2012, 14:51   #1
Hoginat
Новичок
 
Регистрация: 24.12.2012
Сообщений: 1
Репутация: 10
По умолчанию Определить произведение разности первых двух цифр трехзначного числа и младшей цифры этого числа.

Подредактируйте пожалуйста программу, суть в том что она вместо умножения на самое младшее число, умножает его на последнее.
Код:
var a, b, c: integer;

begin
readln(a);
b := a mod 10;
a := a div 10;
a := abs(a mod 10 - a div 10)*b;

writeln(a);
readln;

end.
И вот эта же программа в С++
Код:
#include <stdio.h>
#include <math.h>

int main()
{
	int n;
	scanf("%d", &n);
	printf("%d", abs((n%10)*(n/100 - (n/10)%10)));
	getchar(); getchar();
    return 0;
}
Буду очень благодарен



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 24.12.2012 в 20:36.
Hoginat вне форума   Ответить с цитированием
Старый 24.12.2012, 17:23   #2
Peppy
Пользователь
 
Аватар для Peppy
 
Регистрация: 27.04.2012
Сообщений: 12
Репутация: 10
По умолчанию Определить произведение разности первых двух цифр трехзначного числа и младшей цифры этого числа.

Код:
var a,b,c,d,min:integer;
begin
  readln(a);
  b:=a div 100;
  c:=(a div 10) mod 10;
  d:=a mod 10
  min:=b;
  if b>c then min:=c;
  if (c>d)and(d<b) then min:=d;
  a:=abs(b-c)*min;
  writeln(a);
  readln;
end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 24.12.2012 в 20:37.
Peppy вне форума   Ответить с цитированием
Старый 24.12.2012, 20:41   #3
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 26,090
Репутация: 5656
По умолчанию

Цитата:
суть в том что она вместо умножения на самое младшее число, умножает его на последнее.
суть в том, что Вы неправильно поняли задание.

последняя цифра числа является МЛАДШЕЙ цифрой числа. (заметьте, не наименьшей, не минимальной, а младшей).

в пользу этого говорит и то, что нужно сначала найти разность первых двух цифр числа. и полученную разность умножить на младшую (последнюю) цифру.

т.е. если дано число 759
получаем (7-5)*9 = 18

всё сказанное выше является IMHO, разумеется..
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 24.12.2012, 22:13   #4
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Цитата:
Определить произведение разности первых двух цифр трехзначного числа и младшей цифры этого числа.
Код:
var a: integer;

begin
readln(a);
writeln(
  (
   (a div 100)-((a div 10)-10)
  )*(
    a mod 10
  )
);
readln;

end.
Подходит?
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вводится натуральное трехзначное число. Определить, есть ли среди цифр этого числа одинаковые (задание по Си++) dimazak2009 Помощь студентам 0 11.03.2012 20:47
вводится натуральное трехзначное число. Определить, есть ли среди цифр этого числа одинаковые (задание по Паскалю) najdjel Помощь студентам 0 11.10.2011 17:59
Сумма цифр введенного трехзначного числа. Дельфи by -ORTODOX- Помощь студентам 20 02.02.2011 15:21


17:48.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.