<span>a:=g m2-m1/m2+m1</span>Если в Паскале, а в visual basic без <u>:</u><span>
</span>
var
N, S: Integer;
begin
WriteLn ('Введите последовательность натуральных чисел, 0 - для окончания ввода:');
S := 0;
repeat
ReadLn (N);
if (N mod 6 = 0) and (N mod 10 = 6) then
S := S + N;
until N = 0;
WriteLn ('Сумма = ', S);
end.
S := exp(ln(-sqrt(156,374) * ln(n)) * 1/3)
Функции памяти хранение данных
Функции процессора обработка данных