Вторая строка это пароль от сервера интернета. Введи нужный по роль что бы подключится
S - текст V - скорость печатания каждой девочки
Печатают вдвоём:
S/(2*V) = 1 час --->S = 2*V
Печатают втроём:
S/(3*V) = 2*V/ (3*V) =2/3часа =120/3 = 40 мин
Переменная sum после выполнения программы будет равна 2.
Var
n, i, k: integer;
f: boolean;
begin
readln(n);
f := false;
for i := 1 to n do
begin
k := Random(100);
f := f or (k mod 4 = 0);
end;
writeln(f);
end.
if n mod 2=0 then write('Четное')
else write('Не четное');