решить задание, Дана непустая последовательность символов, за которой следует пробел.
Построить и напечатать множество, состоящее из цифр 4-8 и знаков
арифметических действий, которые встретились в последовательности(Язык Си).

148

244

Посмотреть ответы 1

Ответы на вопрос:

Danya135evlanov

Информатика

4,4(82 оценок)

Pascal алгоритм1 var s : string; n1,n2 : integer; i,l : integer; begin readln (s); n1 : = 0; n2 : = 0; l : = length(s); for i : = 1 to l do if (s[i] = ' ') then if n1 = 0 then n1 : = i else n2 : = i; if n2 = 0 then s : = ' ' else s : = copy(s,n1+1,n2-n1-1); writeln (s); end.алгоритм2 var s : string; n1,n2 : integer; i,l : integer; r : boolean; begin readln (s); n1 : = 0; n2 : = 0; r : = false; l : = length(s); i : = 1; while (i< =l) and (not r) do begin if s[i] = ' ' then begin n1 : = i; r : = true; end; i : = i +1; end; r : =false; i : = l; while (i> 0) and (not r) do begin if s[i] = ' ' then begin n2 : = i; r : = true; end; i : = i -1; end; if n2 = n1 then s : = ' ' else s : = copy(s,n1+1,n2-n1-1); writeln (s); end.