Жылдамдығы әртүрлі болды. Неліктен? Ойыңмен бөліс. Үйде орындайық Мақсат компьютерде ғарышкерлер туралы - id1804793820221110 от ksusha293 10.11.2022 22:02

Question

Информатика: Жылдамдығы әртүрлі болды. Неліктен? Ойыңмен бөліс. Үйде орындайық Мақсат компьютерде ғарышкерлер туралы видео жасады. Жасалған видеоны достарына жібергісі келді. Ол әрбір досының электронды адресіне жеке жіберіп отырды. Сен оған қандай тиімді жолды көрсетер едің, өз ойыңды айт. 120​

ksusha293 · Accepted Answer

1) var s:string; i:integer; begin readln(s); for i:=1 to length(s) do  if (i mod 2=1)and(s[i]= н ) then writeln(i, - н ); end. Пример: Дано предложение. Вывести столбиком все его буквы н, стоящие на нечетных местах 3 - н 53 - н 67 - н 2) var s,s1,s2:string; begin s:= вертикаль ; s1:=s[4]+s[5]+s[3]; s2:=s[1]+s[2]+s[4]+s[6]+s[7]; writeln(s1, ,s2); end. Результат: тир ветка 3. Замечание. Предполагается, что слова в предложениях отделяются друг от друга одним пробелом. 3 а) var s:string; i,k:integer;...

MOGZ ответил