Практикум по решению задач на ЭВМ. Тарова И.Н - 36 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
begin
write(i,'-е число для проверки ');
read(q);
if q mod 2 = 0 then
begin
z:=q div 2;
if z mod 2 <> 0 then
writeln('удвоенныое нечетное ',z);
end;
end;
end;
end;
end.
4) Дано натуральное число n, действительных чисел a
1
, a
2
…,a
n
.
a) верно ли, что отрицательных членов в данной последовательно-
сти больше чем положительных
b) верно ли, что наибольший член последовательности по модулю
больше единицы.
program srav(input,output);
USES CRT;
var n,k,l,i:integer;a,max:real;
begin
clrscr;
write('Введите число элементов последовательности: ');
36
                                   Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


              begin
                write(i,'-е число для проверки ');
                read(q);
                if q mod 2 = 0 then
                begin
                   z:=q div 2;
                   if z mod 2 <> 0 then
                      writeln('удвоенныое нечетное ',z);
                end;
              end;
           end;
         end;
  end.




4) Дано натуральное число n, действительных чисел a1, a2…,an.
   a)      верно ли, что отрицательных членов в данной последовательно-
сти больше чем положительных
   b)      верно ли, что наибольший член последовательности по модулю
больше единицы.
   program srav(input,output);
   USES CRT;
   var n,k,l,i:integer;a,max:real;
   begin
      clrscr;
write('Введите число элементов последовательности: ');

                                        36

Страницы