Будь ласка до іть Складіть проект, у якому виконавець малює рівносторонній трикутник, розміщені по діагоналі Сцени (полотна), якщо довжина сторони першого з низ дорівнює «а» кроків, а довжина сторін кожного наступного на 10 кроків більша за 60 кроків.
227
460
Ответы на вопрос:
Const n = 5; var a: array[1..n] of string; i,j: integer; s: string; begin for i: =1 to n do begin write(i,'. '); readln(a[i]); end; for i: =1 to n-1 do for j: =1 to n-i do if a[j]> a[j+1] then begin s: =a[j]; a[j]: =a[j+1]; a[j+1]: =s; end; for i: =1 to n do write(a[i],', '); end.
Популярно: Информатика
-
teymurnadjafov31.03.2023 14:28
-
karinroy17.09.2022 09:00
-
Лина5г02.07.2022 07:31
-
iququwisjjs28.09.2022 19:32
-
raminqedimov54324.02.2022 15:10
-
lyazkaiman030930.04.2023 17:48
-
СофаСтар219.04.2023 07:31
-
marylps4509.06.2021 11:44
-
Victor78925.06.2023 20:27
-
Milalenka106.10.2022 10:31