Задачи

[Регина]

Задачи

Помогите пожалуйста написать пару задачек в паскале. :tehnari_ru_837:
1) Даны 4 числа. Нечетные числа увеличить на единицу и подсчитать кол-во, четные числа убавить в 2 раза. и подсчитать сумму
2) Определить, принадлежит ли число заштрихованным областям (заштрихованы от минус бесконечности до минус семи и от семи до плюс бесконечности)
Заранее благодарю!

 

[Vladimir_S]

2) Определить, принадлежит ли число заштрихованным областям (заштрихованы от минус бесконечности до минус семи и от семи до плюс бесконечности)
Заранее благодарю!

Var
 a:Real;
Begin
 Write('a= ');
 Readln(a);
 Writeln((a<-7) or (a>7));
 Readln;
End.

 

[Vladimir_S]

Нечетные числа увеличить на единицу и подсчитать кол-во, четные числа убавить в 2 раза. и подсчитать сумму

Вы можете НОРМАЛЬНО сформулировать задание?!! Какое кол-во? Кол-во чего? Сумму чего?
Отговорки типа "А мне так дали!" НЕ ПРИНИМАЮТСЯ!

 

[Регина]

Ну если такие отговорки не принимаются, то попробую. Даны 4 числа. Нечетные числа увлеичить на единицу и подсчитать количество нечетных чисел. Четные убавить в 2 раза и подсчитать сумму четных чисел. Наверное, имелось в виду так.

 

[Vladimir_S]

Ну если такие отговорки не принимаются, то попробую. Даны 4 числа. Нечетные числа увлеичить на единицу и подсчитать количество нечетных чисел. Четные убавить в 2 раза и подсчитать сумму четных чисел. Наверное, имелось в виду так.

Ну... не то, чтобы стало понятнее, скорее наоборот, ибо возникает вопрос: количество и сумму подсчитывать до преобразования чисел или после? Ладно, будем считать, что до. Тогда так:

Var
 a:Array[1..4] of Integer;
 i,N:Byte;
 S:Integer;
Begin
 N:=0;
 S:=0;
 Writeln('Initial:');
 For i:=1 to 4 do
  begin
   write('a',i,'= ');
   readln(a[i]);
   if (a[i] mod 2)=0 then
    begin
     Inc(S,a[i]);
     a[i]:=a[i] div 2;
    end
   else
    begin
     Inc(N);
     Inc(a[i],1);
    end;
   end;
  writeln;
  writeln('Sum of evens is ',S);
  writeln('Number of odds is ',N);
  writeln;
  writeln('New:');
  For i:=1 to 4 do Writeln('a',i,'= ',a[i]);
  Readln
End.