108 / 94 / 45
Регистрация: 12.09.2017
Сообщений: 1,127
|
|
25.12.2017, 17:48
|
3
|
 Сообщение было отмечено Dim_dimich7474 как решение
Решение
FOR
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| var N, a, i, F : integer;
begin
Randomize;
repeat
Write('Введите кол-во чисел: ');
Readln(N);
if N<1 then Writeln('Ошибка ввода данных!');
until N>0;
F:=1;
for i:=1 to N do
begin
a:=i;
a:=Random(100)+1;
Writeln(i, ') число: ', a);
F:=F*i;
end;
Writeln('N! = ', F);
end. |
|
REPEAT
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| var N, a, i, F : integer;
begin
Randomize;
repeat
Write('Введите кол-во чисел: ');
Readln(N);
if N<1 then Writeln('Ошибка ввода данных!');
until N>0;
F:=1;
repeat
i:=i+1;
a:=Random(100)+1;
Writeln(i, ') число: ', a);
F:=F*i;
until i=N;
Writeln('N! = ', F);
end. |
|
WHILE
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| var N, a, i, F : integer;
begin
Randomize;
repeat
Write('Введите кол-во чисел: ');
Readln(N);
if N<1 then Writeln('Ошибка ввода данных!');
until N>0;
F:=1;
while N>i do
begin
i:=i+1;
a:=Random(100)+1;
Writeln(i, ') число: ', a);
F:=F*i;
end;
Writeln('N! = ', F);
end. |
|
0
|
(
Сообщение было отмечено Dim_dimich7474 как решение
