помогите пожалуйста!!! дам 20 баллов
найдите ошибки в программе
Var s:string; c:integer; d:char;
...
s:='планета Земля'
c:=length(s);
d:='Земля';
c:=pos(s, 'Земля');
writeln(copy s, length(s)-1,2);
...
Ответы
Ответ дал:
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); // тут я не понял что нужно вывести на дисплей
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад