Написать программу нахождения произведения
чисел от 3 до 13. (Паскаль)
Лера12435
2
14.04.2020 18:33
2
Другие вопросы по теме Информатика
ДжениферЛюдварг
23.01.2021 12:41
olenkakireeva1
23.01.2021 12:42
Diana111111112
23.01.2021 12:42
Alisherjon1985
23.01.2021 12:55
МарянДансер
23.01.2021 12:59
chernoglazka970
23.01.2021 13:02
zhansayaser
23.01.2021 13:07
11123323333323232233
23.01.2021 13:10
bengamin1993
23.01.2021 13:11
Популярные вопросы
- Составить предложение со словами: миуа,айуан,хайуан, хайуанат....
2 - Какие есть виды деятельности людей? 30 ! нужно...
2 - 30 лайков t=20° до кипения q=672к дж с=4200 m-?...
2 - Выражение при n=0.5. само выражение n-3/n - n/n+3...
1 - 1. сосчитайте по скольку слогов содержится в каждой строке стихотворения....
1 - Главное слово девочка, а зависимое ! ) кто напишет тому ! )...
1 - Реши уравнения (вычисления делай 《столбиком》 с правой стороны)...
2 - Сколько воды в теле человека если его масса: 60 кг, 90 кг,30...
1 - Прямые а и б перпендикулярны через точку их пересечения проведена...
3 - Заполнете пустые ячейки 1 4 4 5 20 9 - -...
2
Program aaa;
Var x,s: integer;
Begin
s:=1;
For x:=3 to 13 do
If x mod 2=1 then
s:=s*x;
WriteLN('Произведение равно ', s);
End.
var n, i: integer;
begin
n := 1;
for i := 3 to 13 do
n := n * i;
write(n);
end.