1. Информатика
  2. Составить программу.

Составить программу. язык 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 определить, сколько из них положительные

osipovalex1969 osipovalex1969    3   18.10.2019 12:39    0

Ответы
ed77714 ed77714  10.10.2020 07:46

ответ на 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.  

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
pollvasiltv pollvasiltv  13.09.2019 01:00
Алгоритм, имеющий полную и неполную форму, -это алгоритм: a линейный. b веивленияб c нет такого алгоритма. d выбора....
Artem152006 Artem152006  13.09.2019 01:00
Ваня собирается нарядить елку. чтобы это сделать, он представил елку в виде n уровней. ваня решил, что с каждым уровнем, количество игрушек на этом уровне елки будет на два больше...
Lalikolalik Lalikolalik  13.09.2019 01:00
Составьте программу которая вводит число с клавиатуры и если оно отрицательное возводит его в квадрат блок схема...
катарина68 катарина68  20.09.2019 03:40
Решить желательно с условием и сколько секунд потребуется модему, сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640*480 пикселей, при...
buster43 buster43  12.02.2021 11:26
1. Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности. 2. Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения. 3. Определить...
Belka1712 Belka1712  12.02.2021 11:29
Как называется один шаг циклического процесса  а) команда циклаб) тело циклав) итерацияг) инкремент​...
David2209 David2209  12.02.2021 11:31
Написать этому коду блок-схему #include using namespace std; bool check(string &s){ for(auto &i : s) if(!(i = 0 && i = 9 )) return false; return true; } int sum_n(int...
kurilovav890 kurilovav890  19.03.2019 10:20
Составить блок-схему алгоритма решения . даны два ненулевых числа. найти их сумму, разность, произведение и частное....
SoftMGDN SoftMGDN  17.02.2022 17:09
Найти промежутки возрастания функции f(x) = x² -0,49....
Marusya2099 Marusya2099  17.02.2022 17:09
ответьте на вопрос: драма или трагедия разворачивалась в рок опере А.Л. Рыбникова Юнона и Авось ?...

Популярные вопросы