Const
N = 8;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
Begin
Read(A[i]);
S:=S+A[i];
End;
WriteLn('Sr = ',S/N);
End.
Пример работы программы:
Введите массив A(8): 1 2 3 4 5 6 7 8
Sr = 4.5
Задание №1:
program Program1;
var a, b, c, d, S1, S2: real;
begin
writeln('Введите значения a и b:');
readln(a, b);
S1 := a * b;
S2 := S1 / 6;
writeln('Введите значение c:');
readln(c);
d := S2 / c;
writeln('Вторая сторона второго прямоугольника = ', d);
end.
Задание №2:
1 итерация цикла: S = 3
2 итерация цикла: S = 21
3 итерация цикла: S = 81
Ответ: 81.
Ну вот, вроде ,я сделал.Как ты сказал - без mod div и /
program znanija; const min=1; max=27;var s, d, e, c, n: Integer;begin repeat write('Введите n (', min, '<=n<=', max, ') '); Readln(n); until n in [min..max]; c:=0; for s:=1 to 9 do for d:=0 to 9 do for e:=0 to 9 do if s+d+e=n then Inc(c); writeln('Количество чисел с суммой цифр = ', n, ' = ', c);end.
int sum(int a, int b, int c, int d)
Минимум 1-8 мегабайта в секунду