Вычислите произведение натуральных чисел от 1 до 8 var s, r, n: integer begin n: =8 p: =1

instagramm1 instagramm1    3   22.09.2019 14:50    0

Ответы
abbasova05 abbasova05  08.10.2020 09:50
Program Primer;
var
P,i: Integer;
begin
P:=1;
for i:=1 to 8 do
P:=P*i;
WriteLn('Произведение чисел Р=',P);
end.
Вычислите произведение натуральных чисел от 1 до 8 var s, r, n: integer begin n: =8 p: =1
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика