Ответ:
Бути телефонним механіком чи ні а так правильно я думаю зараз всі дуже чоткі
Var a: string;
i: integer;
begin
readln(a);
for i := 0 to length(a) do
if (a[i] = 'и') then a[i] := 'е';
writeln(a);
<span>end.
Это на Pascal'е =)</span>
Var s,r:real;
begin
writeln('Введите радиус: ');
readln(r);
s:=sqr(r)*(4-Pi)/2;
writeln('Ответ: ',s);
<span>end.</span>
Двоичная (0,1)
Восьмиричная (0,1,2,3,4,5,6,7)
Десятичная (0,1,2,3,4,5,6,7,8,9)
Шестнадцатиричная (0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)