24 (8)=2*8 (1)+4*8 (0)=16+4=20
56 (16)=5*16 (1)+6*16 (0)=80+6=86
20 (10)+86 (10)=106 (10)
Var a,b,x,y,z,d:real;
begin
write('Введите число X='); readln(x);
write('Введите число Y='); readln(y);
a:=x+y;
b:=x-y;
z:=x*y;
d:=x/y;
writeln('Сумма чисел=',a);
writeln('Разность чисел=',b);
writeln('Произведение чисел=',z);
writeln('Частное чисел=',d);
end.
А - 5
Б - 2 или 3 (так и напиши)
В - оперативка 3 или 4
Жёсткий диск 2 или 3
Результатом выполнения алгоритма будет вывод числа k, которое будет равно 5.
Будет работать только в Pascal.ABC. Желательно вводите величины от 30-50, так как всё измеряется в пикселях.
Program Zagacha;
Uses GraphABC;
Var r, a, b: Integer;
Begin
WriteLn('Введите значение r');
ReadLn(r);
WriteLn('Введите значение a');
ReadLn(a);
WriteLn('Введите значение b');
ReadLn(b);
If ((r + a + b) < 30) Or ((r + a + b) > 200) Then
Begin
r := 50;
a := 100;
b := 100;
<span>End;
</span>DrawCircle(Round(Window.Width / 2), Round(Window.Height / 2), r);
DrawRectangle(Round((Window.Width - a) / 2), Round((Window.Height - b) / 2), Round((Window.Width + a) / 2) + 1, Round((Window.Height + b) / 2) + 1);
If (a = b) And (a * b = 4 * r * r) Then
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность вписана')
Else If (a = b) And (a * b = 2 * r * r) Then
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность описана')
Else
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность посторонняя')
End.