Нужно перевести оба числа в (10) и сложить
7*8^0+1*8^1=7+8=15(10)
7*16^0+1*16^1=7+16=23(10)
23+15=38
Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>
begin
var P := ReadArrInteger('Пол (0-жен, 1-муж) - 8 значений:', 8);
var S := ReadArrInteger('0-холост, 1-женат (8 значений):', 8);
var (k10, k00) := (0, 0);
for var i := 0 to 7 do
if (P[i] = 1) and (S[i] = 0) then
Inc(k10)
else if (P[i] = 0) and (S[i] = 0) then
Inc(k00);
Println('Холостых мужчин:', k10);
Println('Незамужних женщин:', k00)
end.
Ответ:
var x:Real;
begin
write ('x = ');
Readln(x);
if x<0 then Write('y = ',x*x) else
if x>2 then Write('y = ',(3*x-1)/(2*x)) else
Write('y = ',sqr(x)*x+5)
end.