Даны два числа. найти среднее арифметическое кубов этих чисел и среднее модулей этих чисел. )

Var   a, b: real; begin   write('введите два числа через пробел ');   readln(a, b);   writeln('среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2);   writeln('среднее модулей равно ', sqrt(abs(a * end. тестовое решение: введите два числа через пробел -13.5 17.43 среднее арифметическое кубов равно 1417.4722035 среднее модулей равно 15.3396544941534 ********************** замечание: вместо произведения модулей при вычислении среднего достаточно взять модуль произведения - в любом случае получится требуемое положительное число.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

 

1 simvol zanimaet 1 bait(tak kak imeem tekst);

tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.

da + eshe 0,3*2500=750.

vsego 2500+750=3250 bait.