Var a, b, c,rez: real;
begin
writeln( 'Введите три числа' );
read ( a, b, c );
rez := ( a + b + c ) / 3
writeln ('ср. знач.=', rez:0:2 );
<span>end.</span>
Var
s, s1, sn: string;
i, n, p1, p2: integer;
begin
Readln(s);
p1 := Pos(' ', s) - 1;
n := Length(s);
i := n;
while s[i] <> ' ' do i := i - 1;
p2 := i + 1;
s1 := Copy(s, 1, p1);
sn := Copy(s, p2, n + 1 - p2);
s := sn + Copy(s, p1 + 1, p2 - p1 - 1) + s1;
Writeln(s)
end.
А){1}, {2}, {k}
б)множества от 1 до 10 целых чисел
в)бескончность, 0
Ну незнаю в моем компютере восемь
А) белые : 3c или же c3,f4 или 4f. чёрная:b2
б)a3
в)b2
г)a3 f4 b2
Чем смогла,помогла,на счёт 3 и 4 не уверена.