Регистрация
1PGP1
03.12.2022 18:34
Информатика
Есть ответ 👍

Даны целые числа a b c . проверить истинность высказывания справедливо двойное неравенство a меньше b меньше c

153
344
Посмотреть ответы 2

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

Аида1611
Аида1611
4,7(23 оценок)

ответ:

program testabc;

var

  a, b, c: integer;

begin

  write ('введите a, b, c: ');

  readln (a, b, c);

  if (a < b) and (b < c) then

    writeln ('a < b < c - справедливо')

  else

    writeln ('a < b < c - не справедливо');

  readln;

end.

iirunka153
iirunka153
4,6(18 оценок)
Program fff; var a,b,c,d, i, f: integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); writeln('введите третье число'); readln(c); writeln('введите четвёртое число'); readln(d); i: =a*b; f: =c*d; if i> f then begin writeln(i, 'больше', f); end; if i< f then begin writeln(i, 'меньше', f); end; end.

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