Var x, y: real; begin write('введите х'); readln(x); if x < 1 then y : = sqr(x) - 2 * x + 3 else if x < = 2 then y : = sqrt(x - 1) else y : = cos(x); writeln('y=', y) end. тестовое решение: введите х1.5 y=0.707106781186548
лукашова940
08.09.2021
Program players; var n, p, i: byte; height: word; begin write('кол-во желающих: '); read(n); p: =0; for i: =1 to n do begin write('рост ', i, ' желающего: '); read(height); if height => 170 then p: =p+1; end; write('претендентов: ', p); end. предположительно, так.
Спивак
08.09.2021
Const n = 10; type wind = record c: char; //направление ветра (с,ю,в,з) f: integer; //сила ветра end; var a: array[1..n] of wind; i, nday: integer; begin for i : = 1 to n do begin write(i, ' - день направление ветра (с,ю,в,з)'); readln(a[i].c); write('сила ветра : '); readln(a[i].f); if (a[i].c = 'ю') and (a[i].f < = 4) then nday : = nday + 1; end; writeln(' дней когда дул южный ветер с силой, не превышающей 4 м/с : ',nday); end. тестовое решение: 1 - день направление ветра (с,ю,в,з)с сила ветра : 7 2 - день направление ветра (с,ю,в,з)с сила ветра : 7 3 - день направление ветра (с,ю,в,з)ю сила ветра : 6 4 - день направление ветра (с,ю,в,з)ю сила ветра : 5 5 - день направление ветра (с,ю,в,з)ю сила ветра : 4 6 - день направление ветра (с,ю,в,з)в сила ветра : 4 7 - день направление ветра (с,ю,в,з)ю сила ветра : 3 8 - день направление ветра (с,ю,в,з)в сила ветра : 5 9 - день направление ветра (с,ю,в,з)з сила ветра : 4 10 - день направление ветра (с,ю,в,з)ю сила ветра : 3 дней когда дул южный ветер с силой, не превышающей 4 м/с : 3
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Y={(все три) x^2 - 2x +3, x< 1 (под корнем)x-1, 1< =x< =2 cos x , x> 2 решить программу по работе условный оператор! заранее