0 голосов
1 просмотр

50 БАЛЛОВ!!! Решить хотя бы одну из задач ​


image
от в категории Информатика
от

Пронрамиу в Паскале сделать, на уровне 8-9 класса

от

программу*

от

Первую сделали, осталась вторая

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:

Чтобы избежать проверки в будущем, пожалуйста войдите или зарегистрируйтесь.
0 голосов
от Начинающий (103 баллов)

Ответ:

Var s:string; i:integer;

Begin

Readln(s); i:=length(s);

while (i>0) and (s [ i]=' ') do i:=i-1;

if i=0 then Writeln('слова в строке не обнаружены')

else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' ');

End.

Объяснение

uses crt;

var s: string;

   i: integer;

begin

write('s=');

readln(s);

for i:=1 to length(s) do

   if (s[i]='à') or  (s[i]='À') or (s[i]='a') or (s[i]='A')

      then s[i]:='O';

write('s=',s);

end.

от Начинающий (103 баллов)

1-пишет слово в обратном порядке

от

спасибо, сейчас проверю

от Начинающий (103 баллов)

давай)

от Начинающий (103 баллов)

посмотри вторую

от

Окей, через полчаса, у меня урок

от Начинающий (103 баллов)

ок

от

Я посмотрел вторую, все норм, но есть олна проблемка. Мне нужно А заменить на ТУ, когда я вместо О пишу ТУ, пишет, что нельзя преобразовать тип string в char

от Начинающий (103 баллов)

замени в программе букву

от Начинающий (103 баллов)

на которую нужно преобразовать

от

я так и сделал. просто я не могу его заменить на ТУ, могу только изменить на один любой символ

Студенческие и Школьные Задачи и Ответы
...