Составьте программу, с которой из слова железнодорожник получаются слова: донор колено крокодил (язык pascal)
179
330
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1325 от 19.10.2016 begin var s: ='железнодорожник'; writeln(s[8],s[9],s[6],s[7],s[10]); writeln(s[15],s[7],s[3],s[4],s[6],s[7]); writeln(s[15],s[10],s[7],s[15],s[7],s[8],s[14],s[3]) end.
Program gt; var a: array[1..100000]of integer; i,h,j,k,p: integer; begin randomize; readln(h); for i: =1 to h do begin a[i]: =random(101)-50; write(a[i],' '); end; writeln; for i: =1 to h-1 do for j: =1 to h-1 do begin k: =a[j+1]; if(a[j]> a[j+1])then begin a[j+1]: =a[j]; a[j]: =k; end; end; p: =0; k: =1; for i: =2 to h do begin if(a[i]=a[i-1])then k: =k+1; if(a[i]< > a[i-1])or(i=h)then begin if(k> =2)then begin p: =p+1; writeln(a[i-1],' ',a[i-1]); end; k: =1; end; end; writeln(p,' кол-во парных чисел без повторений'); end.
Популярно: Информатика
-
Zhania200704.08.2022 17:29
-
Lasosь19.11.2022 07:14
-
Vladikf01Vlad22017.05.2022 19:58
-
2005Человек200517.03.2022 19:54
-
Зл0йстудент25.01.2023 00:17
-
DmitryKind9827.04.2021 14:37
-
skyline1234528.11.2021 07:43
-
Malinka96115.08.2022 04:14
-
sahrona0409.01.2022 07:42
-
ник309629.04.2022 22:32