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.
var
x,y:real;
begin
Write('Введите число: '); Read(x);
if x<=0 then y:=-3
else
if x<=1 then y:=x else y:=sqr(x);
Writeln('y=',y)
end.
1100............вот как то так
<span>Для выполнения деления двух простых дробей следует умножить делимое на дробь, обратную делителю. Эту дробь по-другому называют еще перевернутой, потому что она получается в результате замены местами числителя и знаменателя.</span>
var i, n: integer;
begin
read(n);
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
end.