Var
i: integer;
s: real;
begin
i := 2;
while(i <= 100) do
begin
//writeln(i, '/', i + 1);
s := s + (i / (i + 1));
i := i + 2;
end;
write(s);
end.
vvvvvvvvvvvvvvvvvvvvvvv
<span>Цикл с предусловием </span>
<span><span>Цикл с постусловием</span></span>
<span><span><span>Цикл со счётчиком</span></span></span>
Ответ:
Для хранения данных и операция над ними. Довольно странный вопрос, попробуйте написать программу без использования переменных. Это все равно, что доказывать кому-то что вы не верблюд.
Это задача по комбинаторике
всего у нас 10 букв, но главное что они повторятся
У - 2
Т - 1
Р - 1
Ы - 1
И - 2
К - 1
Б - 2
Далее вычисляем кол-во перестановок с повторениями. (Формула в приложении с обьяснением из вики)
N = 10! / (2! * 2! * 2! * 1! * 1! * 1! * 1! ) = 10! / 8 = 453 600
Var a,b,c:integer;
begin
read(a,b,c);
if b>a then a:=b;
if c>a then writeln(c) else writeln(a);
end.