Program vtor_bukva;
var
S: String;
begin
Writeln('введите исходное предложение: ');
Readln(s);
delete(s, pos(' ', s), 1);
write('Последняя буква второго слова=');
if pos(' ', s) <> 0 then write(s[pos(' ', s) - 1])
else write(s[length(s)]);
readln(s);
end.
Твоя программа выводит символ, стоящий перед ПЕРВЫМ пробелом. А нужно, чтобы выводила символ, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю первый пробел. А потом делаю проверку: есть ли ещё пробелы (if pos(' ', s) <> 0)? Если пробелы есть, то программа выводит букву, следующую перед вторым пробелом (или последнюю букву второго слова). Если пробелов нет (всего два слова в предложении было введено), то программа выводит последнюю букву (s[length(s)]). Если что-то не понятно, в лс.
Ответ B.
Пояснение:
<span>01110100 во 2 = 116 в 10 = буква t в таблице ANSI
</span>01100101 во 2 = 101 в 10 = буква e <span>в таблице ANSI</span>
01110011 во 2 = 115 в 10 = <span>буква </span>s в таблице ANSI
01110100 во 2 = 116 в 10 = <span>буква </span>t <span>в таблице ANSI</span>
Var a,b:integer;beginreadln(a,b);writeln(a div b);end.
Правильный ответ: Государственный бюджет
Uses crt;
var a,p:integer;b,s:real;
begin
writeln ('введите периметр',p);
readln (p);
writeln ('введите длину',a);
readln (a);
b:=((2*a-p)/-2);
s:=a*b;
writeln (s);
End.