//7.Написать программу на Паскале вычисления значения функции(х^2 при х>0 х-12 при х≤0)
var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then writeln('Ответ ', power(x,2))
else writeln('Ответ ', x-12);
end.
//8.Написать программу на Паскале нахождения периметра произвольного четырехугольника, данные вводить с клавиатуры.
var
a,b,c,d:integer;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
writeln('P= ', a+b+c+d);
end.
//9.Написать программу на Паскале вычисления значения выражения у=15х3+3х2-6
var
x:integer;
begin
writeln('Введите x');
readln(x);
writeln('Ответ ', 15*power(x,3)+3*power(x,2)-6)
end.
//10.Написать программу на Паскале вычисления значения функции(х^2+5х-4 при х>3х при х≤3)
var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>3 then writeln('Ответ ', power(x,2)+5*x-4)
else writeln('Ответ ', x);
end.
К архиваторам. Это лучший и бесплатный архиватор
Var a,b,c:integer;
k:boolean;
begin
readln(a);
readln(b);
readln(c);
k:=false;
if (a mod 3=0) and (a mod 10=5) then
begin;
writeln(a);
k:=true;
end;
if (b mod 3=0) and (b mod 10=5) then
begin;
writeln(b);
k:=true;
end;
if (c mod 3=0) and (c mod 10=5) then
begin;
k:=true;
writeln(c);
end;
if k=false then writeln('НЕТ');
<span>end.</span>
Var
i,x1,x2:integer;
y:real;
begin
writeln('введите х нач и х конечное');
readln(x1,x2);
writeln('введите шаг для х');
readln(i);
while x1<=x2 do
begin
if sin(x1)/Cos(x1)<>0 then
begin
y:=(Sin(x1)+2*Cos(x1))/(Sin(x1)/Cos(x1));
writeln(x1:4,y:10:2);
end;
x1:=x1+i;
end;
end.
1) 1→5
1*2=2
2*2=4
4+1=5 а) ААБ
----------------------------------
2) 1→50
1*2=2
2+1=3
3*2=6
6*2=12
12*2=24
24+1=25
25*2=50 б) АБАААБА
------------------------------------------------------------
3) 1→99
1+1=2
2+1=3
3*2=6
6*2=12
12*2=24
24*2=48
48+1=49
49*2=98
98+1=99 в) ББААААБАБ
