Program mashina;
Uses crt;
var s1, s2, s3: string;
begin clrscr;
write('s1 = ');
readln(s1);
write('s2 = ');
readln(s2);
writeln;
s1:=copy(s1,3,2);
writeln('s3 = ',s1+s2);
readln ;
end.
Program Nalog;{Uses crt}{Если надо}varz,x:real;begin
Write('Ввидите число ');Read(x);If x<2500 then Writeln('налог = 0');
beginif (x>=2500) and (x<10000) thenz:=x*0.13;Writeln('Налог=',z);end;Beginif x>=10000 then z:=(x-1300)*0.15;Writeln('Налог=',z);{READLN - Если турбо поскаль или фрии}end;<span>end.
Картинка снизу
Только есть 1 проблемв с последним
</span>
По предоставленному коду и своему опыту могу предположить что суммирует все четные элементы матрицы
1.
Четыре числа - a, b, c, d, каждое больше нуля
их среднее арифметическое - (a+b+c+d)/4
2.
Два числа a,b
<span>среднее арифметическое их квадратов = (a^(2)+b^(2))/2
</span><span>среднее арифметическое их модулей = (|a|+|b|)/2</span>
1) 0(False, ложь)
2)1(True, правда)