Задание в Питоне! 1. Обеспечить ввод пароля. Вы должны ввести пароль после запуска программы. Используйте свою фамилию в качестве правильного пароля. Если это правильно, вопросы вывод и ответы предоставляются пользователем. В случае неправильного пароля сообщение "Неправильный пароль" является выходом и программа завершается.

2. Проектирование ввода и вывода данных со следующими цветами:

А. Цвет рамы - темно-зеленый;

B. Цвет вопроса - светло-зеленый;

c. Цвет текста информации, которая будет введена, желтый;

d. Цвет предупреждающих сообщений: красный;

E. Текстовое цвет информации будет белый
· Цвет съедобного возраста (числа) красный, если возраст меньше 18 лет, в случае другого, возраст устраняется в светло-голубом;

· Цвет ежемесячного названия должен быть удален должен зависеть от сезона месяца: зимние месяцы должны быть удалены в светло-голубой, весенние месяцы в зеленом, летние - желтые, а осенние месяцы в красном;

F. Выходная информационная рамка цвета - синий;

3. Сделайте оповещение о неправильно введенной мигающей парой - надпись мигает 5 раз и исчезает

Компьютер является практически неотъемлемой частью нашей жизни. Он везде: дома, в школе, на работе. очень хорошо было бы, если бы компьютер будущего имел разум, с ним можно было бы поговорить обо всём, как со своим другом или приятелем. Компьютер был бы без громоздкого системного блока, то есть, что-то похожее на ноутбук. И выполнял бы команды по голосу, понимая всё и всегда. По своего обладателя компьютер мог бы уменьшаться или увеличиваться, в зависимости от желания. Это было бы очень удобно. Идёте вы, например, на улицу погулять, и хотите взять компьютер с собой. А он раз – и уменьшился. Замечательно, не правда ли? Или захотели посмотреть какой-нибудь фильм, а ваш компьютер увеличивается в несколько раз, и вы, получая удовольствие, смотрите фильм на двухметровом экране. А наушники бы выползали сами собой, по . Захотели музыку послушать и в любом месте, в любое время – наушники к вашим услугам, вам остаётся только наслаждаться.

Вот как я представляю себе компьютер будущего. Конечно, многое из этого выполнить невозможно ни сейчас, ни в ближайшее время, а то и вообще никогда.

1.
var
  s: string;
  i, count: integer;
begin
  writeln('Vvedite stroky: ');
  readln(s);
  for i := 1 to length(s) - 2 do
    if copy(s, i, 3) = 'abc' then
      count := count + 1;
  writeln('Kol-vo: ', count);
end.
2.
var
  s1, s2: string;
  i, len1, len2: integer;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  len1 := length(s1);
  len2 := length(s2);
  if len1 > len2 then writeln('1 stroka dlinnee')
  else if len1 < len2 then writeln('2 stroka dlinnee')
  else writeln('dlini strok ravnie')
end.
3.
var
  s1, s2, s3: string;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  s3 := s1[1] + s1[2] + s2[1] + s2[2];
  writeln('Novaja stroka: ', s3);
end.