Регистрация
romamarunp016li
17.04.2023 03:53
Информатика
Есть ответ 👍

1. вычислить значение функции f(x)= cos(x), если x< 0 2^x, если 0

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

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

yxhcycgc
yxhcycgc
4,4(80 оценок)
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); end.2)var x, y, z, m: real; 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); end.вот, проверил =)
Narine10
Narine10
4,8(26 оценок)

var

n: word;

a,max,i: integer;

begin

repeat

write ('n = '); readln(n);

until (n> 0) and (n< =1000);

write ('a = '); readln(a);

if a mod 5 = 0 then max: =a;  

while i< > n-1 do begin

write ('a = '); readln(a);

if (a> max) and (a mod 5 = 0) then max: =a;  

i: =i+1;

end;

writeln ('max: ',max);

readln;

end.

Популярно: Информатика