Написать программу – модель аналога пожарного датчика в помещении, которая выводит сообщение «Пожарная ситуация», если температура (её значение вводится с клавиатуры) в комнате превысила 60 0 С. Program poz_sit; Var t:real; Begin Writeln(введи температуру); readln(t); If t>60 then write(пожарная ситуация); End. НАЧАЛО t t>60 пожарная ситуация КОНЕЦ -+

Заданы два числа. Определить одного знака эти числа или с разными. Program z_chis; Var ch1, ch2:real; Begin Writeln(введи числа); readln(ch1, ch2); If ch1*ch2>0 then write( одного знака ) else write( с разными знаками ); End. НАЧАЛО ch1, ch2 ch1*ch2>0 одного знака КОНЕЦ с разными знаками +-

Найти значение функции: х 2 -1 при х>0; У= -x при х0 then y:=sqr(x)-1 else y:=-x; write(y=, y:6:2); End. НАЧАЛО x x>0 КОНЕЦ Y Y= -x Y= х

1.Валя и Вера на своем садовом участке собрали А кг клубники. Из них В кг собрала Вера. Кто из девочек собрал клубники больше и на сколько? 2.Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным. 3.Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного вами целого числа является четным. 4.Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного вами двузначного целого числа делится на 5. 5.Составьте программу, определяющую, пройдет ли график функции y = 5x 2 – 7 x + 2 через заданную точку с координатами (a,b). 6.Даны три действительных числа a, b, c. Найти наибольшее из них. 7.В компьютер поступают результаты соревнований по плаванию для трех спортсменов. Выбрать и напечатать лучший результат.

8.Для конкурсного отбора манекенщиц приглашаются девушки не ниже 180 см. Определить, будет ли допущена Таня к участию в конкурсе. 9.Здоровый щенок играет не менее 8 часов в день. Напишите программу, которая определяет, здоров ли щенок по кличке Пуджик. 10.Скорость на участке дороги должна быть не выше 30 км/ ч. Определить, нарушил ли водитель правила дорожного движения. 11.Написать программу, которая бы запрашивала целое число и распечатывала любое его значение, кроме13. Если заданное число равно13, вместо него печатается число Найти значение выражения: а) 1 ; б) 5. x-5 (x-7)(x+3) 13.Даны коэффициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения. 14.Даны длины трех отрезков a, b, c. Если можно построить треугольник по этим трем отрезкам, то вычислить его периметр и площадь. 15.Составить программу для решения уравнения ax = b, где a и b - заданные действительные числа.