Правильные решения и ответы на любые задания для школьника или студента быстро онлайн. А если не нашли нужное решение или ответ, то задайте свой вопрос нашим специалистам.
0 голосов

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


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

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

0

программу*

0

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

0 голосов

Ответ:

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 баллов)
0

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

0

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

0

давай)

0

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

0

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

0

ок

0

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

0

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

0

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

0

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

...