Условные операторы 1 из трех данных чисел выбрать наименьшее и наибольшее. 2 даны числа x, y. проверить истинность высказывания: «точка с координатами (x, y) лежит во второй координатной четверти». 3 дано целое число. если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. вывести полученное число.

274

359

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

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

raminowka

Информатика

4,8(86 оценок)

Var a,b,c,mx,mn: longint; begin read(a,b,c); if (a > = b)and(a > = c) then mx : = a; if (b > = a)and(b > = c) then mx : = b; if (c > = a)and(c > = b) then mx : = c; if (a < = b)and(a < = c) then mn : = a; if (b < = a)and(b < = c) then mn : = b; if (c < = a)and(c < = b) then mn : = c; writeln('минимальное число = ', mn); writeln('максимальное число = ', mx); end. var x,y: real; begin read(x, y); if (x < = 0)and(y > = 0) then write('true') else write('false'); end. var n: longint; begin read(n); if (n > 0) then inc(n); write(n); end.

ninaemelyanova2

Информатика

4,4(58 оценок)

Program ygol var a,b : integer; begin writeln ('являются ли углы а и b смежными'); write ('введите градусную меру угла а); readln (a); write ('введите градусную меру угла b); readln (b); if a+b=180 then writeln ('углы а и b смежные') else writeln ('углы а и b не смежные'); end.