Регистрация
fedor1daniil12
10.06.2023 20:40
Информатика
Есть ответ 👍

Дано 2 числа
необходимо большее из чисел утроить (х3) , а в случае равенства чисел выдать сообщение "числа равны"​

100
216
Посмотреть ответы 2

Ответы на вопрос:

liya20042812
liya20042812
4,7(47 оценок)

ответ:

//pascal

var a,b : integer;

begin

  readln(a, b);

  if a = b then

    writeln('числа равны.')

  else

  begin

    if(a > b) then

      a *= 3

    else

      b *= 3;

    writeln(a, ' ', b);

  end;

end.

объяснение:

leski
leski
4,6(19 оценок)
Var   x,f: real; begin   write('введите x: '); readln(x);   if (x> -2.4) and (x< 5.7) then f: =sqr(x)   else f: =4;   writeln('f=',f) end. var   x,f: real; begin   write('введите x: '); readln(x);   if (x> 0.2) and (x< 0.9) then f: =sin(x)   else f: =1;   writeln('f=',f) end. var   a,b,c: real; begin   write('введите три числа: '); readln(a,b,c);   write('условие ',a,'< ',b,'< ',c);   if (b> a) and (b< c) then writeln(' выполняется.')   else writeln(' не выполняется.');   write('условие ',b,'> ',a,'> ',c);   if (a< b) and (a> c) then writeln(' выполняется.')   else writeln(' не выполняется.') end.

Популярно: Информатика