Впаскале написать программу: чтобы там вводилась строка, например 'мама мыла раму'. в этой строке нужно найти 2 слово и заменить его на любую согласную букву. 20 б
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016 // Внимание! Если программа не работает, обновите версию!
function MatrCreate(m,n:integer):array[,] of integer; begin Writeln('*** Исходный массив A[',m,',',n,'] ***'); Result:=MatrRandom(m,n,-50,50); Result.Println(4); Writeln(4*n*'-'); end;
procedure Matr2File(a:array[,] of integer; fn:string); begin var f:file of integer; ReWrite(f,fn); foreach var r in a.Rows do foreach var x in r do Write(f,x); f.Close end;
begin var m:=ReadlnInteger('Количество строк в массиве:'); var n:=ReadlnInteger('Количество столбцов в массиве:'); var a:=MatrCreate(m,n); var s:=ReadlnString('Имя файла:'); Matr2File(a,s); Writeln('Работа завершена') end.
Var f: array[1..10] of integer; i,suma,sumb:integer; begin randomize; for i:=1 to 10 do begin f[i]:=random(10)+10; write(f[i],' '); end; suma:=0; sumb:=0; for i:= 1 to 10 do if f[i] mod 2 = 0 then suma:=suma+f[i]; else sumb:sumb+f[i]; writeln('Сумма четных: ',suma); writeln('Сумма нечетных: ',sumb); end.
var f: array[1..8] of integer; i,k,sumb:integer; begin randomize; for i:=1 to 8 do begin f[i]:=random(10)+10; write(f[i],' '); end; k:=0; sumb:=0; for i:= 1 to 8 do if f[i] mod 2 = 0 then k:=k+1; else sumb:sumb+f[i]; writeln('Количество четных: ',k); writeln('Сумма нечетных: ',sumb); end.
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToWords;
s[1]:='в'; s.Println
end.
Пример
мама мыла раму
мама в раму