Номер 1)а)5506*2.б)2184*2
Номер2)а)24,б)142.
Номер 3)незнаю
Начало-столовую ложку сушенных плодов шиповника измельчить-Залить стаканом кипячённой воды-кипятить 10 минут на слабом огне-охладить-процедить-конец
Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой
Var x,y:real;
begin
write('x = ');
readln(x);
if (x<-4)or(x>4)
then writeln('Функция не определена')
else begin
if x<0
then y:=0
else if x<2 then y:=x*x
else y:=4;
writeln('Y = ',y);
end;
end.
Пример:
x = 1.5
Y = 2.25