Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр

@Машуня · Регистрация: 27.10.2008

Студворк — интернет-сервис помощи студентам

Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в нем, произвеление его цыфр

@Arriba · 27.10.2008, 23:28

Машуня, моно вот так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
program Project2;
 
{$APPTYPE CONSOLE}
var s:integer;
 
begin
  Writeln('vvedi chislo s:');
  Readln(s);
  Writeln('chislo desjatkov=',s div 10);
  Writeln('chislo edinic=',s mod 10);
  Writeln('proizvedenie=',(s div 10)*(s mod 10));
ReadLn;
end.

если на паскале пишешь, а не в делфаке то удали строчку {$APPTYPE CONSOLE}
и всё. Удачки в изучении.
s div 10 -число делим на 10 и получаем число десятков (пример:30/10=3)
s mod 10 -число делим на 10 и получаем остаток,число единиц (пример:34/10=4)

@Машуня · 27.10.2008, 23:59 **[ТС]**

Пасибочки за помошь =))

@Машуня · 28.10.2008, 00:16 **[ТС]**

Еще одна просьба, может Вы мне еще и блок-схему поможете построить, если не сложно =)))

@Arriba · 28.10.2008, 00:33

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

@Arriba · 28.10.2008, 00:48

Машуль,

посмотри, вот я тут попробовал построить, но думаю ужасно вышло..

@Arriba · 28.10.2008, 00:53

И тогда моленько код поменяется..

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project2;
 
{$APPTYPE CONSOLE}
var s,k,n:integer;
 
begin
  Writeln('vvedi chislo s:');
  Readln(s);
  n:=s div 10;
  Writeln('chislo desjatkov=',n);
  k:=s mod 10;
  Writeln('chislo edinic=',k);
  s:=n*k
  Writeln('proizvedenie=', s);
ReadLn;
end.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@Машуня 0 / 0 / 0 Регистрация: 27.10.2008 Сообщений: 11

	Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр 27.10.2008, 23:17. Показов 53169. Ответов 6 Метки нет (Все метки) Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в нем, произвеление его цыфр 0

@Машуня 0 / 0 / 0 Регистрация: 27.10.2008 Сообщений: 11
	27.10.2008, 23:59 [ТС]
	Пасибочки за помошь =)) 0

@Машуня 0 / 0 / 0 Регистрация: 27.10.2008 Сообщений: 11
	28.10.2008, 00:16 [ТС]
	Еще одна просьба, может Вы мне еще и блок-схему поможете построить, если не сложно =))) 0

@Arriba 257 / 173 / 27 Регистрация: 17.10.2008 Сообщений: 770
	28.10.2008, 00:33
	Машуня, Если честно, то блок схемы никогда не делал. конечно могу попробовать, но думаю мало что получится, я не знаю правил записи. 0

@Arriba 257 / 173 / 27 Регистрация: 17.10.2008 Сообщений: 770
	28.10.2008, 00:48
	Машуль, посмотри, вот я тут попробовал построить, но думаю ужасно вышло.. Миниатюры 1