Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, пожалуйста, оч срочно надо сделать задачки!!!!!!!!
Помогите, пожалуйста, оч срочно надо сделать задачки!!!!!!!!
1)Дано натуральное число, в котором все цифры различны. Определить порядковые номера двух его минимальных цифр, считая номера:
-считая от конца числа;
-считая от начала числа.
(Использовать только один оператор цикла)

2)Дано натуральное число. Верно ли, что количество его цифр есть четное число?

3)Дано натуральное число. Верно ли, что произведение его цифр меньше a, а само число делится на b?

4)Дано натуральное число. Определить, являеться ли оно членом последовательности Фибоначчи(последовательности, первой и второй члены последовательности равны 1, каждый следуйщий равен сумме двух предыдущих)?

5)Имеется фрагмент программы в виде оператора цикла с параметром, обеспечивающий вывод на экран "столбиком" всех целых чисел от 100 до 80. Оформить этот фрагмент в виде: оператора цикла с постусловием.

6)Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатикеоценку "5"? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.

7)В некотором году (назвем его условно первым) на участке в 100 гектар средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность на 2%. Определить, в каком году площадь участка станет больше 120 гектар?

1 | Автор: BeaU | 2009-06-04, 16:44   |  Репутация: [ + 0 ]
Кто вас так задачами-то завалил ?
2 | Автор: admin | 2009-06-04, 17:51   |  Репутация: [ + 21 ]
У нас сейчас практика, каждый день задают около 10 задач..((( И все обезательно надо зделать!
3 | Автор: BeaU | 2009-06-04, 18:02   |  Репутация: [ + 0 ]
№2 (Только делаю без числового типа, подходит ли такой алгоритм?)
Code

program n2;
var s:string;
begin
Read (s);
if ord(s[0]) mod 2=0 then Write ('YES')
else Write ('NO');
end.

Добавлено (04.06.2009, 20:30)
---------------------------------------------
№3

Code
program n3;
uses crt;
var x,p,a,b,i,err:integer;
     s:string;
begin
clrscr;
     Write ('Vvedite chislo:');
     readLN (s);
     p:=1;
     for i:=1 to ord(s[0]) do
     begin
          err:=0;
          Val(s[i],x,err);
          if err>0 then exit;
          p:=p*x;
     end;
     WriteLN ('PROIZVEDENIE=',p);
     Write ('Vvedite A:');
     ReadLn (a);
     if p<a then WriteLN ('MENSHE') else writeLN ('BOLSHE');
     Write ('Vvedite B:');
     ReadLn (b);
     if p mod b=0 then
     WriteLN ('DELITSA') else WRITELN ('NEDELETSA');
REadkey;
end.

Добавлено (04.06.2009, 20:57)
---------------------------------------------
№4

Code
program n4;
uses crt;
var n,x,y,i:integer;
begin
clrscr;
x:=1; y:=1;
        ReadLn (n);
        if (n=1) or (n=2) or (n=3) then Write ('YES')
        else
        begin

        for i:=3 to n do
        begin
        y:=x+y;
        x:=y-x;
        if y=n then
               begin
               writeLN ('YES');
               readkey;
               exit;
               end;
        end;
   write ('NO');
   end;
   readkey;
   end.


Удваивается не в четыре, а в три раза!
4 | Автор: RedWoLF | 2009-06-04, 20:57   |  Репутация: [ + 3 ]
Спасибо тебе, огромное!!!
5 | Автор: BeaU | 2009-06-05, 11:18   |  Репутация: [ + 0 ]
тебе еще 6 задача нужна?
6 | Автор: viper-klas | 2011-07-05, 18:11   |  Репутация: [ + 3 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, пожалуйста, оч срочно надо сделать задачки!!!!!!!!
Страница 1 из 11
Поиск: