1)
var f: real;
x, i: integer;
begin
readln(x);
if (x < 0) then f := cos(x);
if ((x > 0) and (x <= 2)) then f := exp(ln(2) * x);
writeln('F(', x, ') = ', f);
<span>end.
2)
</span>var x, y, z, m: real;
<span>begin
readln(x, y, z);
m := x + y;
if (x < m) then m := x;
if (m > z) then m := z;
if (m > x * y * z) then m := x * y * z;
writeln(m);
<span>end.
</span>
Вот, проверил =)</span>
Высказывание - предложение, которое может быть истинным или ложным.
<span>а) Все натуральные числа целые. - истинное высказывание
</span><span>б) Существуют ли белые слоны? - вопросительное предложение не является высказыванием.</span>
<span>устройство ввода - сканер, видео- и вебкамера, микрофон, мышь, игровые устройства ввода (руль, джойстик, педаль, геймпад, танцевальный коврик).
устройство вывода - монитор, принтер, встроенный динамик, колонки, наушники</span>
Надеюсь , что помог тебе )
<span><span> #include <iostream></span><span> #include <math.h></span><span> using namespace std;</span><span> int main()</span><span> {</span><span> int i, n, k = 0;</span><span> cin >> n;</span><span> for (i = 2; i <= sqrt(n); i++){</span><span> if (n%i==0)</span><span> k ++;</span><span> }</span><span> if (k > 0)</span><span> cout << "composite";</span><span> else</span><span> cout<<"prime";</span><span> return 0;</span><span> <span>}</span></span></span>