Вопрос Помогите с паскалем

[Тима.]

Помогите с информатика

 

[БУБЛИК]

ладно

 

[синдикат228]

1)
var a, u, S: real;
begin
write('Введите значение стороны a: '
readln(a);
write('Введите значение угла u (в градусах): '
readln(u);
S := 0.5 * a * 4 * sind(u);
writeln('Площадь треугольника: ', S);
end.

2)
var a, b, c: real;
begin
write('Введите первое число: '
readln(a);
write('Введите второе число: '
readln(b);
c := (a + b) / 2;
writeln('Среднее арифметическое: ', c);
end.

3)
var v, t, s: real;
begin
write('Введите скорость движения (в км/ч): '
readln(v);
write('Введите время в пути (в часах): '
readln(t);
s := v * t;
writeln('Пройденное расстояние: ', s:0:2, ' км'
end.

 

[kenton1]

Блез Паскаль - физик!))) надеюсь, помог)))

 

[russik]

Дано: процедура M, которая принимает на вход два параметра a и b, и переменную n, которая является целым числом.
Требуется написать код на языке Pascal, который будет вызывать процедуру M для каждой пары целых чисел (i, j) из множества {1, 2, ..., n}, таких что i < j. Результатом должно быть суммарное значение, которое вернет процедура M для всех вызовов.

Вот один из возможных вариантов решения: program Main;

procedure M(a, b: Integer);
begin
{ Ваш код процедуры M }
end;

var
n, i, j, sum: Integer;

begin
{ Считываем значение n }
readln;

{ Инициализируем сумму нулем }
sum := 0;

{ Вызываем процедуру M для каждой пары (i, j) }
for i := 1 to n do
begin
for j := i + 1 to n do
begin
M(i, j);
sum := sum + M(i, j);
end;
end;

{ Выводим итоговую сумму }
writeln(sum);
end.
В данном коде используется вложенный цикл for, который перебирает все возможные пары (i, j) с условием i < j. В теле цикла вызывается процедура M для текущей пары, а результат сохраняется в переменной sum. После завершения циклов выводится значение sum.