Question

Помогите пожалуйста!!! дам 20 баллов найдите ошибки в программеVar s:string; c:integer; d:char;...s:='планета Земля'c:=length(s);d:='Земля';c:=pos(s, 'Земля');writeln(copy s, length(s)-1,2); ...​​

Answer 1

Ответ:

Var s:string; c:integer; d:char;

...

s:='планета Земля'

c:=length(s);

d:='Земля';  // d объявлено Char, a вы присваиваете строку

c:=pos(s, 'Земля');   // pos (подстрока, строка) если ищете подстроку "Земля" в s то нужно писать Pos ('Земля', s)

writeln(copy s, length(s)-1,2);  // тут я не понял что нужно вывести на дисплей

Answer 2

Программа содержит несколько ошибок. Вот исправленная версия:

pascalCopy code
Var
  s: string;
  c: integer;
  d: string;

begin
  s := 'планета Земля';
  c := length(s);
  d := 'Земля';
  c := pos(d, s);
  writeln(copy(s, length(s)-1, 2));
end.

Внесенные изменения:

1. Добавлена директива begin в начале программы, чтобы обозначить начало блока кода.
2. Заменена переменная d на тип string, чтобы совпадать с типом переменной s.
3. Исправлен порядок аргументов в функции pos для поиска подстроки d в строке s.
4. Добавлен пропущенный оператор точки с запятой (;) после вызова функции writeln.
5. Добавлены скобки ( и ) при вызове функции copy, чтобы указать аргументы функции.

Теперь программа должна корректно выполняться без ошибок.