profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

помогите решить пожалуйстаа)
1)Дано целое число ,если оно не четное ,то увеличить его на 3,иначе увеличить его в 5 раз.
2)Даны 2 числа вещественного типа не равные друг другу.Меньшее из них заменить половиной их суммы ,а большее - их удвоенным произведением.
3)Даны 2 числа k и m.Если первое число отрицательно ,то его значение заменить его модулем;иначе второе число заменить единицей .Результат (оба числа) вывести на экран.

  1. Ответ
    Ответ дан AndreyAG2014
    1) if x mod 2=0 then x:=x+3, else x:=5*x;
    2) if x<y then x:=(x+y)/2, else y:=3*x*y;
    3) if k<0 then k:=abs(k), else m:=1;
        writeln ('k=','m=');
        end.
    1. Ответ
      Ответ дан Аккаунт удален
      спаасибо:)
    2. Ответ
      Ответ дан AndreyAG2014
      пожалуйста;)