Напишите с помощью цикла с предусловием программу выводящую степени 2 начиная с заданной в порядке убывания. (с помощью программы кумир)
Ответы на вопрос
Ответил vinny777v
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Uses
CRT;
var
i,n:integer;
fact:longint;
begin
readln(n);
if n<0 then writeln('Г”Г*êòîðèГ*Г«Г* îòðèöГ*òåëüГ*îãî Г·ГЁГ±Г«Г* Г*ГҐГІ!!')
else if n=0 then writeln('Г”Г*êòîðèГ*Г«:=',1)
else if n>0 then
begin
fact:=1;
for i:=1 to n do
begin
fact:=fact*i;
end;
writeln('Г”Г*êòîðèГ*Г« ',n,':=',fact);
end;
readkey
end.
Новые вопросы