Var //Объявляем переменные
i:integer;
s:string;
begin // Начало работы блока
readln(s); // В переменную S записываем введенную строку
i := Pos('мама', s); // В переменную i записываем количество символов до данного слова
if i > 0 then //Если количество символов больше нуля тогда
begin
Delete(s, i, 4); // Удаляем из веденной строки (Переменная S), слово мама, содержащие 4 символа
Insert('папа', s, i); // Заменяем словом Папа
end; //Конец
writeln(s); //Выводим на экран полученный текст
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var K := ArrRandom(9, -50, 50);
K.Println;
K.Transform(t -> t * t);
K.Println
end.
<h3>22 -21 36 42 -2 37 42 29 49</h3><h3>484 441 1296 1764 4 1369 1764 841 2401</h3>
Var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if (x>=0)and(y>=0)and(y<=(-1)*x+6)and(y>=(-2)*x+4)then writeln('True')
else writeln('False');
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -49, 49);
a.Println;
var b := ArrRandom(10, -49, 49);
b.Println;
var c := a.Zip(b, (p, q)-> p + q).ToArray;
c.Println
end.
<h2>38 -38 -24 -7 -5 -22 6 -42 -21 -11</h2><h2>12 -16 -23 -36 -29 8 -42 -44 -4 24</h2><h2>50 -54 -47 -43 -34 -14 -36 -86 -25 13</h2>
120/20=6Мб можно передать за 1 сек
60*10=600сек в 10 мин
600/6=100Мб
Ответ: 100