Молоко -- кувшин
Вода -- стакан
Лимонад -- Бутылка
Сок -- банка
Var a, b: integer;
begin
readln(a);
if (a = 1) then write('Здравствуйте, Уважаемая ');
if (a = 2) then write('Здравствуйте, Уважаемый ');
if ((b > 25) and (a = 1)) then writeln('мадама');
if ((b <= 25) and (a = 1)) then writeln('леди');
if ((b > 25) and (a = 2)) then writeln('сэр');
if ((b <= 25) and (a = 2)) then writeln('господин');
end.
Слова только поменяйте, что ли...:)
3х=120
х=40
за 40 секунд 1 Мбайт
4 за 160 секунд
или 2 мин 40 секунд
Вместо integer напиши real в var и будет тебе счастье
1) 00, 01, 10, 11 - 4 последовательности
2) 000, 001, 010, 100, 011, 110, 101, 111 - 8 последовательностей
3) 16 последовательностей
4) 32 последовательности