//прога на Pascal`e
var
i: integer;
begin
for i:=100 to 999 do
if (i mod 9) = 0 then write (i, '; ');
end.
В какой среде работаешь? каккая программа уточни ато никто не ответит .
Программа может выглядеть такЖ
uses crt;
const n=4;
type Mas=array [1..n] of real;
Var A: Mas;
i: integer;
Sum, Sred: real;
Begin
ClrScr;
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
Sum:=Sum+A[i];
end;
Sred:=Sum/n;
WriteLn ('Sred = ', Sred:5:2);
ReadLn;
end.
Конец
Перед первым выполнением цикла необходимо задать начальное значение «Сумма» = 0 и затем nраз вычислять «Сумма» при различных значениях Xi<span> и Y</span>i, где i принимает последовательно значения 1,. . ., n и используется цикл с постусловием. В схеме алгоритма заменим слово «сумма» буквой S.
Вычислить факториал М! = 1х2хЗх (М - 1)х М
<span>Факториал вычисляется как произведение от 1 до М, аналогично предыдущему вычислению суммы. Начальное значение переменной «ФАКТ»=1, если это значение задать равным нулю, то и результат будет нулевым.</span>
Хахахахахахаах
зебра тоесть: пешеходный переход или места где люди могуд проходить безопасна дорогу.