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

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

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

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

@Arriba · 27.10.2008, 23:28

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

Delphi

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

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.

@Машуня 0 / 0 / 0 Регистрация: 27.10.2008 Сообщений: 11
		1
	Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр 27.10.2008, 23:17. Показов 47080. Ответов 6 Метки нет (Все метки) Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в нем, произвеление его цыфр 0

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

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

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

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

Опции темы