ИНФОРМАТИКА 9 КЛАСС Предположим, что некоторая база данных содержит поля «ФАМИЛИЯ», «ГОД РОЖДЕНИЯ», - id1472668520210831 от KhanKotyan 31.08.2021 23:42

Question

Информатика: ИНФОРМАТИКА 9 КЛАСС Предположим, что некоторая база данных содержит  поля   «ФАМИЛИЯ», «ГОД  РОЖДЕНИЯ», «ДОХОД». Следующая запись этой БД будет найдена при поиске по условию ГОД РОЖДЕНИЯ 1958 ИЛИ ДОХОД 3500 1. Петров, 1956, 3600 2. Иванов, 1956, 2400 3. Сидоров, 1957, 5300 4. Козлов, 1952, 12000 ​

KhanKotyan · Accepted Answer

var s : string[50];
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin f := false;
repeat j := 0;
  writeln('введите строку, состоящую из 2 слов');
  readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
  begin
inc(j);
k := i; end;
if j =1 then f := true;
  until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
end.
недавно такую писала :)

MOGZ ответил