Ответы
Ответ дал:
0
Var
A:integer;
Begin
Write('Введите число: ');ReadLn(A);
Case A of
1:WriteLn('Один бань');
5:WriteLn('Пять бань');
10:WriteLn('Десять бань');
25:WriteLn('Двадцать пять бань');
50:WriteLn('Пятьдесят бань');
else WriteLn('Недопустимое значение')
End;
End.
Var
n:integer;
S,P:real;
Begin
S:=0;
P:=1;
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin1
S:=S+1/n;
P:=P/n;
End;
WriteLn('S = ',S);
WriteLn('P = ',P);
End.
A:integer;
Begin
Write('Введите число: ');ReadLn(A);
Case A of
1:WriteLn('Один бань');
5:WriteLn('Пять бань');
10:WriteLn('Десять бань');
25:WriteLn('Двадцать пять бань');
50:WriteLn('Пятьдесят бань');
else WriteLn('Недопустимое значение')
End;
End.
Var
n:integer;
S,P:real;
Begin
S:=0;
P:=1;
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin1
S:=S+1/n;
P:=P/n;
End;
WriteLn('S = ',S);
WriteLn('P = ',P);
End.
Вас заинтересует
1 год назад
5 лет назад
8 лет назад
8 лет назад