1) даны 2 числа.если произведение этих чисел больше 0, то найти сумму этих чисел, иначе найти разность этих чисел 2) числа,a,b,c . определить какое из чисел четноеb mod 2 =1 на паскаль!

timofeyzel timofeyzel    1   24.09.2019 19:20    0

Ответы
Насонка Насонка  08.10.2020 16:26
1
program aaa;
var
   a,b:integer;
begin
   readln(a,b);
   if(a*b>0) then writeln(a+b)
      else writeln(a-b);
end.

2
program aaa;
var
   a,b,c:integer;
begin
   readln(a,b,c);
   if(odd(a)=false) then writeln('a - чётное');
   if(odd(b)=false) then writeln('b - чётное');
   if(odd(c)=false) then writeln('c - чётное');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика