Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > помогите жизненно важно

Автор: l0rens 9.11.2005, 21:43

дано натуральное число:
(а) найти количество четный цифр числа
(Б) верно ли что данная цифра A встречается в числе более двух раз

2. Найти все 4-х значные числа у которых сумма крайних цифр равна сумме5 средних цифр а само число делится на 6 и 27

3. Найти кол-во разл. цифр данного натурального числа.

Помогите решить плзззз четвертная оценка летит!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! smile

[email protected]

Автор: St. Andrew 9.11.2005, 22:58

На каком языке писать? В чем возникают трудности?
А то ведь начну на ассемблере писать! smile

Потом сам переделывать будешь!

Думаю, что будет верно также отметить, что
Название темы должно соответствовать ее содержанию!

Автор: sergejzr 9.11.2005, 23:26

Это тоже из паскаля...

Автор: darkart 9.11.2005, 23:39

Первая:

Код


program Zadacha1a;
var
  count,num,k:integer;
begin
  writeln('Please enter a number:');
  readln(num);
  count:=0;
  repeat
    k:=num mod 10;
    if k mod 2 = 0 then inc(count);
    num:=num div 10;
  until num=0;
  writeln('Result=',count);
  readln;
end.

Добавлено @ 23:44
Первая вторая:

Код


program Zadacha1b;
  a,k,num,count:integer;
  bol:boolean;
begin
  writeln('Please enter e number:');
  readln(num);
  writeln('Please enter "A":');
  readln(a);
  count:=0;
  repeat
    k:=num mod 10;
    if k=a then inc(count);
    num:=num div 10;
  until num=0;
  bol:=count>2;
  writeln('Result=',bol);
  readln;
end.

Добавлено @ 23:48
Третья:

Код


program Zadacha3;
var
  snum:set of 0..9;
  k,count:integer;
  num:longint;
begin
  snum:=[];
  writeln('Please enter a number:');
  readln(num);
  count:=0;
  repeat
    k:=num mod 10;
    if not (k in snum) then
    begin
      inc(count);
      snum:=snum+[k];
    end;
    num:=num div 10;
  until num=0;
  writeln('Result=',count);
  readln;
end.

Автор: St. Andrew 10.11.2005, 00:00

darkart, respect! Грамотно и оперативно!

Автор: darkart 10.11.2005, 01:01

Если правильно понял 2, то

Код


program Zadacha2;
var
  iTemp,i1,i2,i3,i4:integer;
begin
  writeln('Result:');
  for i1:=1 to 9 do
    for i2:=0 to 9 do
      for i3:=0 to 9 do
        for i4:=0 to 9 do
        begin
          if ((i1+i4)=(i2+i3)) then
          begin
            iTemp:=i1*1000+i2*100+i3*10+i4;
            if (iTemp mod 6=0) and (iTemp mod 27=0) then writeln(iTemp);
          end;
        end;
  readln;
end.