Найти частное от деления

@Almos · Регистрация: 06.06.2012

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

Найти частное от деления произведений четных и нечетных цифр введенного числа !!!

помогите срочно я блок схему написал а как это в прогу вылеть я не знаю

@Puporev · 26.06.2012, 10:42

Pascal

uses crt;
var n,k,pc,pn,kc,kn:longint;
    ch:real;
begin
clrscr;
write('n=');
readln(n);
pc:=1;{произведение четных}
pn:=1;{произведение нечетных}
kc:=0;{наличие четных}
kn:=0;{наличие нечетных}
while n>0 do
 begin
  k:=n mod 10;
  if odd(k) then{если нечетная цифра}
   begin
    kn:=1;
    pn:=pn*k;
   end
  else {если четная}
   begin
    kc:=1;
    pc:=pc*k;
   end;
  n:=n div 10;
 end;
if kn=0 then write('Нет нечетных цифр, деление невозможно')
else
 begin
  if kc=0 then ch:=0
  else ch:=pc/pn;
  write('Частное=',ch:0:2);
 end;
readln
end.

@Almos · 26.06.2012, 18:58 **[ТС]**

Puporev, как то она не так работает (( как должна

@Puporev · 26.06.2012, 19:00

С бугра конечно виднее, напиши как должна, если ты что-то такое знаешь, чего не написал.

@Almos 8 / 1 / 0 Регистрация: 06.06.2012 Сообщений: 36
		1
	Найти частное от деления 26.06.2012, 08:52. Показов 946. Ответов 3 Метки нет (Все метки) Найти частное от деления произведений четных и нечетных цифр введенного числа !!! помогите срочно я блок схему написал а как это в прогу вылеть я не знаю 0

@Almos 8 / 1 / 0 Регистрация: 06.06.2012 Сообщений: 36
	26.06.2012, 18:58 [ТС]	3
	Puporev, как то она не так работает (( как должна 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.06.2012, 19:00	4
	С бугра конечно виднее, напиши как должна, если ты что-то такое знаешь, чего не написал. 0

Опции темы