С клавиатуры вводится строка. Вывести ту же строку: все буквы в верхнем регистре. С клавиатуры вводится строка. Сложить данную строку со строкой ‘python’ и записать в отдельную переменную. Вывести её длину.
С клавиатуры вводится строка. Умножить её содержимое на число 7 и записать в отдельную переменную. Вывести её содержимое на экран. Вывести длину новой строки.
С клавиатуры вводится 2 строки: s и s1. Проверить есть ли подстрока s1 в строке s. Вывести ДА, или НЕТ (в зависимости от результата).
Вводятся n строк в любом регистре. Вывести те же строки: первая буква – в верхнем регистре, остальные – в нижнем.
Напишите программу, которая выводит третью букву введённого пользователем слова. Например, в слове "Привет" третья буква — "и".
Напишите программу, которая считывает слово и выводит его предпоследнюю букву.
работа по информаттке

1941 жылдың 26 маусымында Радошкович деревнясының тұсында болған шайқаста қазақстандық батыр Бақтыораз Бейсекбаевтың қаһармандығы көпке дейін айтылмай келді. Ол отқа оранып, жанып бара жатқан ұшағын жердегі кеңес жауынгерлеріне шабуылдаушы неміс техникаларына қарсы бағыттаған ұшқыш Александр Маслов экипажының құрамында болған еді. Аңызға бергісіз осынау өшпес ерлік біразға дейін даңқты ұшқыш Николай Гастеллоға телініп келген-ді. Алайда, тарихи шындық елге аян болды. Қазір бұл жерде арнайы мұражай бар. «Әуе отты таран» мұражайында 100-ден астам жәдігер жинақталған. Солардың бірі – Бақтыораз Бейсекбаевтан қалған пулемет. Бұл қаруды соғыс жәдігерін іздеушілер ұшақтың құлаған жерінен тапқан.

ҚАНДЫ ШАЙҚАС – КӨЗ АЛДЫҢДА

Әлемнің 13 мемлекеті қатысқан халықаралық әскери шара Беларуссияның Брест қаласында өтті. «Брест қамалы – 1941 жыл, 22 маусым» деп аталатын фестиваль осымен алтыншы рет өткізілді. Осыдан тура 75 жыл бұрын Ұлы Отан соғысы дәл осы Брест қамалын қорғаудан басталған болатын. Халықаралық фестивальға 500-ден астам адам қатысты. Олардың қатарында қазақстандық «Атырау-Брест» экспедициясының сарбаздары да болды. Отан соғысының алғашқы күнінде Гитлердің жоспары бойынша Брест қамалын 8 сағатта жаулап алып, әрі қарай Кеңес Одағының территориясына емін-еркін өту еді. Неміс әскері біздің жауынгерлердің тегеурінді қарсылығына тап болды. Жан аямай соғысқан ерлердің арасында қазақстандықтар да аз болмады.

Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково