Ответы на вопрос:
pascalabc.net
begin
var x : = readreal('x =');
var y: real;
if x < -2 then
y : = 3 * x *x - 8
else if x < = 4 then
y : = -9 * x * x - 12
else
y : = 32 + x;
print(y)
end.
Число билетов: 4331 var i,j,k,nmb: integer; a: array[1..15] of integer; begin for i: =0 to 5 do for j: =0 to 5 do for k: =0 to 5 do if i+j+k> 0 then inc(a[i+j+k]); { подсчет числа билетов} nmb: =0; for i: =1 to 15 do nmb: =nmb+a[i]*a[i]; writeln('число билетов: ',nmb); end.
Популярно: Информатика
-
Sofia186330.12.2022 02:48
-
Spy133719.07.2022 13:26
-
милота001114.02.2020 07:20
-
di61125.11.2020 12:59
-
лукашук08.11.2020 13:05
-
Микаэла11117.11.2020 15:24
-
gjkbyf678931.12.2022 23:13
-
софика404.03.2020 16:31
-
Udontkhow25.11.2022 17:37
-
ДИЛЯ200211114.02.2022 00:51