Program 1rst;
uses Crt;
var a,b,output1,output2:real;
begin
write('Введите а= ');Readln(a);
write('Введите b= ');Readln(b);
output1:=6*a+15*b-13*b;
output2:=(a+b)*(a-b);
writeln(output1:5:2,output:8:2);
readln;
end.
1 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
case a of
1:writeln('Зима');
2:writeln('Зима');
3:writeln('Весна');
4:writeln('Весна');
5:writeln('Весна');
6:writeln('Лето');
7:writeln('Лето');
8:writeln('Лето');
9:writeln('Осень');
10:writeln('Осень');
11:writeln('Осень');
12:writeln('Зима');
end;
end.
2 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
if (a=12) or (a=1) or (a=2) then writeln('зима');
if (a=3) or (a=4) or (a=5) then writeln('весна');
if (a=6) or (a=7) or (a=8) then writeln('лето');
if (a=9) or (a=10) or (a=11) then writeln('осень');
end.
№4
var
x1,x2,x3,y1,y2,y3,a,b,c,p: real;
begin
write ('Введите x1 = '); readln (x1);
write ('Введите y1 = '); readln (y1);
write ('Введите x2 = '); readln (x2);
write ('Введите y2 = '); readln (y2);
write ('Введите x3 = '); readln (x3);
write ('Введите y3 = '); readln (y3);
a:=sqrt(abs(x2-x1)*abs(x2-x1)+abs(y2-y1)*abs(y2-y1));
b:=sqrt(abs(x3-x2)*abs(x3-x2)+abs(y3-y2)*abs(y3-y2));
c:=sqrt(abs(x1-x3)*abs(x1-x3)+abs(y1-y3)*abs(y1-y3));
p:=a+b+c;
writeln ('Периметр = ',p:6:2);
end.
-----------------------------------------
Введите x1 = -1.51
Введите y1 = -8.65
Введите x2 = -5.4
Введите y2 = -3.92
Введите x3 = 0.47
Введите y3 = 9.11
Периметр = 38.29
№5
const pi=3.14;
var r,l,s: real;
begin
write ('Введите радиус r = ');
readln (r);
l:=2*pi*r;
s:=pi*r*r;
writeln ('Длина окружности l = ',l);
writeln ('Площадь круга S = ',s);
end.
------------------------------------------
Введите радиус r = 5
Длина окружности l = 31.4
Площадь круга S = 78.5