var
cur_class, total: integer;
begin
cur_class := 1;
total := 12;
while (total < 100) do
begin
total := total + trunc((total / 100) * 25) + 4;
cur_class := cur_class + 1;
end;
write('Вову исключат в ', cur_class, ' классе');
end.
В таких задачах всегда самый быстрый способ найти ответ это делить объем вариантов пополам и спрашивать каждый раз есть ли в выбранной половине ответ.
В данной задаче цепочка будет такой:
1. Его номер квартиры больше 4? ---- если ответ да, то дальше цепочка такая же только номера надо будет брать из другого промежутка.
2. Его номер квартиры больше 2?
3. Его номер квартиры = 2?
2^N = 5 --> N=3 бита для кодировки одного из пяти символов Ш К О Л А
3*15 = 45 бит = 6 байтов для одного пароля
30*6 = 180 байтов для тридцати паролей
Ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об этом... А так например импорт-экспорт есть во многих прогах (оффис например),... Вот так....