0101011(2) = 2^5+2^3+2^1+2^0 = 32+8+2+1 = 43(10)
47(8) = 4*8+4 = 32+7 = 39(10)
63(10)
A0(16) = 10*16 = 160(10)
Числа по возрастанию: 47(8), 0101011(2), 63(10), A0(16)
//Pascal ABC
//Вывод чисел кратных 3 на промежутке от 0 до 50
var
i:integer;
begin
for i:=0 to 50 do begin
writeln(i);
i:=i+2;
end;
end.
1) Точность вычисления в программе не задается. Указано только количество цифр дробной части (3), которое требуется вывести на экран.
var x,y,a:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
if x*x-x-4>=0 then
begin
a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4));
writeln('a = ',a:5:3);
end
else writeln('Корень из отрицательного числа');
end.
2)
var a,b,c,d:real;
begin
writeln('Введите a, b, c, d:');
readln(a,b,c,d);
if (a=d)
then if (c=b) then writeln('Бесконечно много решений')
else writeln('Решения нет')
else writeln('x = ',(c-b)/(a-d));
end.
Пример:
<span>Введите a, b, c, d:
2 1 4 3
x = -3</span>
Весь код в прикрепленках. Нужно просто откомпилировать в любом IDE. Если есть вопросы, пиши в коментариях, всё объясню. Запустив программу, нужно просто указать полный путь к файлу, в котором записаны два числа. В каждом ряду записываешь по 1 числу. Максимальная длина числа в данном формате файла - 1024 символа. Поменяй на произвольный формат файла, к примеру "myFile.myextention", а так же укажи больший размер переменной в main функции, в которую считывается файл и всё, можешь писать любую длину числа, главное отбей сновой строки каждое.
Задания 19 и 20 должны выполняться с помощью компьютера.
