Зарли Как ты понимаешь, что ЗАЛ ІІ
утренней зарядке, и за партой, ив поХОДІ
4. Озаглавь текст
В одной газете появилось шуточное объявление о само
шёвом путешествовать. Многие лоди захотели
пользоваться этой возможностью и написали в газету. Во
говорилось: «Оставайтесь в постели и никуда не выходите. Зе
движется с огромной скоростью, а вы движетесь вмес
ней. Приятного путешествия!»
(И. Вереща.
На каком признаке Земли как планеты построена шутка?
Составь схему выделенного предложения.
5. Прочитай
Для Талгата Мусабаева 12 апреля 1961 года стал поворот
днём в жизни. Он вспоминает, что все началось со школь
тинейки в СШ No 58 г. Алматы. Учителя объявили о том,
Юрий Гагарин полетел в космос. «Началось такое ликован
се бегали, кричали, смеялись, дети прыгали. И я - то
есятилетний – вдруг выкрикнул: «Талгат Мусабаев в космос
- знаю, почему, но знаю, что с того момента ни о чём, крс
моса, я не мечтал»,
етская мечта Талгата сбылась. Он совершил три пол
мос
(По материалам информационных портал
тарь «тонкие» и «толстые вопросы по содержанию текста, задай и
классникам
ы думаешь, почему детская мечта Талгата сбылась?​

? заменяет любой один символ
* заменяет любое чколичество любых символов

Маске ?l*ck.*t? удовлетворяют имена файлов, вторая буква имени которых l, имя заканчивается на ck, а предпоследняя буква расширения t. 

Из перечня имён выберите (отметьте галочкой) те, которые удовлетворяют маске ?l*ck.*t?
а) click.txt — предпоследняя буква расширения x
б) black.ppt — предпоследняя буква расширения p 
в) lock.sts — вторая буква имени o
г) clock.tt 7  — предпоследний символ расширения пробел
д) blink.uta — предпоследний символ имени n
е) applock.stu — вторая буква имени p
ж) blocker.htm — имя оканчивается на er
✔) elpack.ty
и) blocker.html — имя оканчивается на er

1)
 var 
n:integer;
begin 
readln(n); 
if(n<0)then write(0) 
else write(n+4);
end.

2)
 var
  a, b: integer;
 begin
  readln(a, b);
  if(a = b) then
write(1)
  else
write(0);
end.

3)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a >= 0) then s := s + 1;
  if(b >= 0) then s := s + 1;
  if(c >= 0) then s := s + 1;
  write(s);
end.

4)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a > 0) then s := s + a;
  if(b > 0) then s := s + b;
  if(c > 0) then s := s + c;
  write(s);
end.
5)
 var
  a, b, c: integer;
 begin
  readln(a, b, c);
  if (a < b) then swap(a, b);
  if (a < c) then swap(a, c);
  if (b < c) then swap(b, c);
  write(a, ' ', b, ' ', c);
end.

6)
 var n, k, s, i: integer;
 begin
  s := 0;
  readln(n, k);
  for i := 1 to n.ToString.Length do
  if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
  write(s);
 end.

7)
 var n, s, i: integer;
 begin
  s := 0;
  readln(n);
  for i := 1 to n do
    s := s + i;
  write(s);
 end.

9)
 var n, i: integer;
 begin
  readln(n);
  for i := n downto 1 do
  write(i);
 end.

12
 var
  n, i: integer;
  s: real;
 begin
  s := 0;
  readln(n);
  for i := n downto 1 do
  s:=s+(0.1*i);
    write(s);
 end.

13)
 var n, i: integer;
 begin
  readln(n);
  for i := 1 to n do
    write(sqr(i), ' ');
end.

14)
 var
  n, i, c: integer;
 begin
  i := 1;
  c := 0;
  readln(n);
  while (c <> n) do
  begin
    if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
    i := i + 1;
  end;
end.

15)
 var
  n, i, a: integer;
  c: real;
 begin
  i := 1;
  c := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(a);
    c := c + a;
  end;
  write(c / n)
end.

16)
 var
  n, i, a: integer;
 begin
  i := 1;
  while true do
   begin
    read(a);
    if(a = 0) then break;
    n := n + 1;
  end;
  write(n)
end.