2) ascii таблица состоит из 256 значений, следовательно 1 байт мощность его алфавита.
1) юникод то разный бывает. utf-8, utf-16, utf-32. О каком именно речь?
Program korni;
uses crt;
var
a,b,c:integer;
x1,x2:real;
begin
writeln('введите коэффициент А, B и С');
readln(a,b,c);
x1:=sqr(b)-4*a*c;
x2:=(b*(-1)-sqrt(x1))/a*2;
x1:=(b*(-1)+sqrt(x1))/a*2;
writeln('корни уравнения: x1=',x1,',x2=',x2);
end.
1. использовать Робот
алг нач
нц 3 раз
вверх
вправо
вверх
влево
кц
кон
2. использовать Робот
алг
нач
нц 3 раз
вправо
вниз
вправо
вверх
кц
кон
Удачи.
-------------------------------------------------------------------------------------------------------
<span>Настоящий мастер — это вечный ученик.</span>
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
<u>Пример</u>
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55