Регистрация
ponchara423
06.09.2021 00:45
Информатика
Есть ответ 👍

составить таблицу истинности

211
441
Посмотреть ответы 1

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

balandinradmir
balandinradmir
4,8(63 оценок)
Var   a, b,sa,sg: real; begin   write('введите a '); readln(a);   write('введите b '); readln(b);   sa: =(a + b) / 2;   sg: =sqrt(a * b);   if a < b then begin       a : = sa;       b : = sg;   end   else begin       a : = sg;       b : = sa;   end;   writeln('a= ', a: 0: 2, ' ', 'b= ', b: 0: 2); end.

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