1. Вводить строку, состоящую из трех слов, разделенных пробелами. 2. В первом слове введенной строки посчитать количество букв “а”. 3. Во втором слове заменить все символы “а” на символы “А”. Если таких нет, то вывести сообщение об ошибке 4. Узнать длину третьего слова. 5. Всю полученную информацию вывести на экран.​

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

1)через сеть интернет либо съемные носители 2)размножался в системе, выполнял нагрузку на цп до 100% 3)удалил с антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы