ПЖ безотлагательно Надобно ПРАВИЛЬНОЕ РЕШЕНИЕ ДАЮ 70 БАЛОВ!!!! ПАСКАЛЬ А В

ПЖ безотлагательно НАДО ПРАВИЛЬНОЕ РЕШЕНИЕ ДАЮ 70 Пиров!!!! ПАСКАЛЬ А В С
Номер 1.
Даны три числа.Если творение первых 2-ух чисел делится на третье число, то получить среднее арифметическое данных чисел, в противном случае вывести произведение трёх данных чисел.
Номер 2.
Даны два числа. Если числа не одинаковы, то каждое из чисел прирастить в 2 раза, в противном случае бросить числа без конфигурации

Задать свой вопрос
Esenija
на java норм будет?
Олег Жудров
НЕТ
Саша Худадова
на паскале надобно
Имайкина Виктория
завтра надо сдать просто не сделал
1 ответ

1

var res:real; a:integer; b:integer; c:integer;

begin

   readln(a);

   readln(b);

   readln(c);

   if (a*b) mod c = 0 then

       begin

           res:=(a+b+c)/3;

           writeln(res);

       end

   else

       begin

           res:=a*b*c;

           writeln(res);

       end;

       

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт