задачка 1) Даны 2 числа.Если творенье этих чисел больше 0, то

Задачка 1) Даны 2 числа.Если творение этих чисел больше 0, то найти сумму этих чисел, по другому отыскать разность этих чисел

задачка 2) числа,a,b,c . Найти какое из чисел четноеb mod 2 =1
безотлагательно
на паскаль!

Задать свой вопрос
1 ответ
1
program aaa;
var
   a,b:integer;
begin
   readln(a,b);
   if(a*bgt;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.
Тамара Колнигорова
В writeln во 2-ой задачке пренебрегал поставить ' '
Меликов Леонид
спасибо)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт