1)program odin;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(Sqr(x)*x)/3+(Sqr(x*x)*x)/5;
Writeln('y =',y)
end.
2)program dva;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=<span>Exp(-x*Ln(2))</span>- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program tri;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program cheture;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+(Sqr(x*x)*(1-x));
Writeln('y =',y)
end.
Обозначается? Если я правильно понял, ты о названии переменной? Название переменной это совокупность латинских букв и цифр, причем цифра не может стоять на первом месте в названии переменной. Примеры: x, i, j, a1, a2, sum.
Program abc;
var a,b,c : real;
begin
writeln('Введите стороны угла через пробел:');
readln(a,b);
if a+b<180 then
writeln('3 угол = ',180-(a+b) ) else
writeln('Такого треугольника не существует.')
end.
Program Project1;
var a:array[0..9] of integer; i,sum:integer;beginrandomize;sum:=0; for i:=0 to 9 do begin a[i]:=random(10); Write(a[i],' '); if a[i] mod 2 = 0 then sum:=sum+a[i]; end; Writeln('Sum: ',sum); readln(i);end.<span>
</span>
1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.
