Из десятичной в 16-ую
a) 201 б) 258 в) 7DA
Из десятичной в 8-ую
а) 1001 б) 1130 в) 3732
Var a:string; i,d:integer;
Begin
Readln (a);
d:=length (a);
For i:=1 to d do
If a[i]='A' then a[i]:='B';
Writeln (a);
end.
Материнская плата и внешние устройства.
Не хватает гласных букв.
var
x1, x2, x3:real;
begin
write('x1 = '); readln(x1);
write('x2 = '); readln(x2);
write('x3 = '); readln(x3);
if x1 < x2 then
if x1 < x3 then
writeln('минимальным является элемент х1 = ', x1)
else
writeln('минимальным является элемент х3 = ', x3)
else
if x2 < x3 then
writeln('минимальным является элемент х2 = ', x2)
else
writeln('минимальным является элемент х3 = ', x3);
end.