<em>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:=ReadAllText('Pascal.txt');
var c1:=ReadlnString('Введите строку замещаемых символов').ToCharArray;
var c2:=ReadlnString('Введите строку замещающих символов').ToCharArray;
for var i:=0 to c1.Length-1 do
t:=t.Replace(c1[i],c2[i]);
WriteAllText('Pascal.txt',t);
Writeln('Работа завершена');
end.
<u>Пример</u>
Введите строку замещаемых символов ячсми
Введите строку замещающих символов фывап
Работа завершена
Y =-44 так как - 22 меньше минус 20 (у отрицательных все наоборот) поэтому y = -22*2 = -44
Что значит логическая модель я не знаю, но могу сказать что, 1место Россия. 2 место Китай. 3 место украина. 4 место германия. 5 место Италия. Это все точно правильно. мы решаем с помощью таблицы и ставим там + и - может это и есть логическая модель, я не згаю, но кто на каком месте решила.
Мен азанда жаттығу жасаймын .Мен ыдыс жуамың.Мен мектеп ке барғанды жақсы көремін. Мен анама, әкеме және әжеме көмектескенді жақсы көремін.