Предмет: Информатика,
автор: программ228
1.Составьте программу которая вычисляет произведение натуральных чисел кратных 23 в диапазоне от 100 до 620
2.Найти произведение чисел от 11 до 6
3.Найти значение функции на отрезке [8;4] с шагом -0,2
сделайте пожалуйста 1 и 2
Ответы
Автор ответа:
0
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 620 do
if A mod 23 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 1.5255279798308E+55
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 downto 6 do
P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 332640
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 620 do
if A mod 23 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 1.5255279798308E+55
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 downto 6 do
P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 332640
Похожие вопросы
Предмет: Английский язык,
автор: zhaksylykaruzhan104
Предмет: Українська мова,
автор: marina3915
Предмет: Алгебра,
автор: smataninanasty138
Предмет: Математика,
автор: Принг
Предмет: Обществознание,
автор: евгений64