Помогите составить программу. Язык Pascal.

1. Вычислить Z при любых значениях а:

Z= $left { {{a sin x^{2} } atop {1}} right.$ если a $leq$ -3, если a $geq$ -3
2. Участок имеет форму круга с длинной окружности Z метров. Вывести на экран сообщение, превышает ли площадь участка величину P( $m^{2}$ )
3. Заданы три различных числа a, b, c Определить, сколько из них положительные

Ответ

Автор - maximbelinckov

Ответ на 3 задание:

var

a,b,c,i:integer;

begin

writeln('Введите 3 числа');

readln(a,b,c);

if a>0 then i:=i+1;

if b>0 then i:=i+1;

if c>0 then i:=i+1;

writeln('Положительных чисел: '+i);

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.