///Pascal abc.
Самый простой способ (программа в файлике);
Проверка:
Введите число: 547
Результат: 745
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var k:real;
var b:real;
repeat
k := ReadReal('Введите k');
b := ReadReal('Введите b');
until k <> 0;
var x := -2;
while x <= 2 do
begin
print(k * x + b);
x := x + 2;
end;
end.
Двоичная: 1000000001, 1001011000, 100001010, 10000111111100
Шеснадцатиричная: 201, 258, 10а, 21fc
Восьмиричная: 1001, 1130, 412, 20774
<span>
</span>