VPF::помогите жизненно важно - Форум программистов

l0rens

Дата 9.11.2005, 21:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

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

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

[email protected]

St. Andrew

Дата 9.11.2005, 22:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 28.3.2005
Где: Санкт-Петербург

Репутация: 5
Всего: 8

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

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

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

Это сообщение отредактировал(а) St. Andrew - 9.11.2005, 23:01

--------------------

Оглянитесь вокруг! В мире так много прекрасного!

sergejzr

Дата 9.11.2005, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

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

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

darkart

Дата 9.11.2005, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Первая:

Код


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.

Это сообщение отредактировал(а) darkart - 9.11.2005, 23:40

St. Andrew

Дата 10.11.2005, 00:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 28.3.2005
Где: Санкт-Петербург

Репутация: 5
Всего: 8

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

--------------------

Оглянитесь вокруг! В мире так много прекрасного!

darkart

Дата 10.11.2005, 01:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Если правильно понял 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.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »