Объяснение:
program kalk;
var
a, b, c :integer;
begin
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
writeln('Cумма трех чисел равна',a+b+c);
writeln('Разность трех чисел равна',a-b-c);
writeln('Произведение трех чисел равно',a*b*c);
end.
Есть вариант поставить вместо:
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
поставить так:
writeln('Введите 3 числа: ');
readln(a, b, c);
Задание 1:
var a,b,c,p,s:real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*((p-a)*(p-b)*(p-c)));
writeln('Площадь: ',s);
end.
Задание 2:
а)
var a:real;
begin
a:=1/(1+(1/(2+(1/(2+(3/5;
writeln(a);
end.
ответ: 0.704545454545454
б)
var
a,b,c,d:real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
d:=(((-b)+sqrt(sqr(b)-4*a*c))/2*a);
writeln(d);
end.
var
mas: array[1..10] of integer;
i: integer;
begin
for i := 1 to 10 do begin
write('mas[',i,'] = ');
readln(mas[i]);
end;
writeln('Obratnii massiv:');
for i := 1 to 10 do begin
mas[i]:=mas[i]*(-1);
writeln('mas[',i,'] = ',mas[i]);
end;
end.