Pascalabc.net var str : string; i : integer; begin write('введите строку: '); readln(str); for i : = 1 to length(str) do case str[i] of 'а' : str[i] : = 'б'; 'а' : str[i] : = 'б'; 'б' : str[i] : = 'а'; 'б' : str[i] : = 'а'; end; writeln(str); end.
Спасибо
Ответ дал: Гость
паскаль:
uses crt;
var a,b: string; \ а-слово ,b-символ
i: integer; \ переменная для счета
begin
writeln ('слово и символ');
readln (a,b); \\ввод данных
for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а и сравнение каждого с символом b. вывод ответа. или ответов
readkey; \\если символы в слове повторяются
end.
Ответ дал: Гость
имитационные модели оперируют разыгрыванием случайной величины! если детерминированная модель слишком сложна или вообще не возможна, то на приходит имитационная модель!
Популярные вопросы