Микрофон - вывод звуковой информации, сканер = ввод текстовой, графической и числовой информации, наушники - вывод звуковой информации, процессор - обработка числовой информации, принтер - вывод текстовой, числовой и графической информации
01011110.11000011.10100010.00110010=<span>94.195.162.50</span>
00110010=50
10100010=162
11000011=195
1011110= 94
Var A,B,C :real;
time :integer;
begin
Writeln('сколько заработал за лето');
readln(c);
Writeln('стипендия = ');
readln(A);
Writeln('расходы на проживание');
Readln(b);
C:=c+a-b;
while (c>=0) do begin
C:=c+a-b;
b:=b+(b/100*3);
time:=time+1;
end;
writeln('денег хватит на ',time,' месяцев');
<span>end.</span>
1,2.3,9,10
правильно это первое ваторое третье девятое и десятое
var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.