Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln('s = ',s);
end.
Пример:
n = 10
s = 2.71828180114638
Var
O:integer;
Begin
Write('Введите оценку ученика: ');
ReadLn(O);
Case O of
1:Write('плохо');
2:Write('неудовлетворительно');
3:Write('удовлетворительно');
4:Write('хорошо');
5:Write('отлично');
End;
End.
Если числа от 1-10 то нужно
(1+2+3+4+5+6+7+8+9+10):10=
Шнур к интернэту
и подключаешь в компьютер!
Макар-парикмахер
Егор-мельник
Это точно. Остальное:
Аксен-маляр, почтальон или плотник
Фрол-Почтальон, плотник
Филимон-маляр, плотник