// PascalABC.NET 3.2, сборка 1467 от 02.06.2017 // Внимание! Если программа не работает, обновите версию!
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.
Пример Введите строку замещаемых символов ячсми Введите строку замещающих символов фывап Работа завершена
// Внимание! Если программа не работает, обновите версию!
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.
Пример
Введите строку замещаемых символов ячсми
Введите строку замещающих символов фывап
Работа завершена
using namespace std;
int main()
{
double S = 0;
int N = 0, K = 0, A;
cout <<"K = ",cin >> K;
for(int i = 0; i < K; i++)
{
cout <<"Nabor "<<i<<": ";
S = 0;
N = 0;
cin >> A;
while(A != 0)
{
S+=A;
N++;
cin >> A;
}
if (N!=0) cout <<"Sr = "<<S/N<<"\n";
else cout <<"Na noll delit' nel'zja!\n";
}
return 0;
}