с информатикой 6 класс​

Ресурс:                         Можливості:

Appy Pie                       Створення додатків для Android , iOS , Fire OS.

Mobicommerce            Створення додатків-магазинів для Android

AppYet                          Створення додатків для блогерів, ютуберів за 5 хв

AppsGeyser                  Створення додатків для Android.

Mobincube                    Створення додатків для Android.

Apps Bar                       Створення додатків для Android.

CreateMyFreeApp         Створення додатків для Android і iOS.

Mobiumapps                  Створення додатків-магазинів для Android

Appropio                         Створення додатків для Android і iOS.

GoodBarber                    Створення додатків для Android.

Більше інформації: https://sovety.pp.ua/index.php/ua/onlajn/vebmajstru/3382-onlajn-servisiv-dlya-stvorennya-mobilnikh-dodatkiv

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.