Составить блок-схему и записать на алгоритмическом языке например, такой алгоритм: алгоритм собирания яблок с дерева. на яблоне созрели яблоки и для того, чтобы они не упали и не побились, все их надо собрать. для этого принести лестницу, корзину и залезть на яблоню. срывать по одному яблоку и класть в корзину.
149
456
Ответы на вопрос:
Const n=50; var f: text; s: string; ss: array of string; a: array[1..n] of string; i,j: integer; begin assign(f,'input.txt'); reset(f); j: =0; while not eof(f) do begin readln(f,s); ss: =s.split(' '); for i: =0 to length(ss)-1 do if length(ss[i])> 1 then if rightstr(ss[i],2)='of' then begin inc(j); a[j]: =ss[i] end; end; close(f); for i: =1 to j do write(a[i],' '); writeln end. тестовое решение: 123of asdfdsof dasof есть решение и покороче, но совсем не уровня начинающих: uses system.text.regularexpressions; const n=50; var f: text; s: string; a: array[1..n] of string; i,j: integer; begin assign(f,'input.txt'); reset(f); j: =0; while not eof(f) do begin readln(f,s); foreach var m: match in regex.matches(s,'\b\s+of\b') do begin inc(j); a[j]: =m.value end; end; close(f); for i: =1 to j do write(a[i],' '); writeln end.
Популярно: Информатика
-
EgorKolomytsev01.12.2022 02:10
-
girl14806.12.2020 05:57
-
5Все5ники5заняты513.02.2022 10:39
-
Lisa210614.02.2022 06:50
-
deniskohan5920.12.2021 15:12
-
llopatniseva26.12.2021 13:50
-
veraruu08.02.2023 03:02
-
валя2006319.05.2022 06:48
-
asya1305121.06.2021 11:27
-
вероника106223.03.2022 16:15