//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.
Ответ: Б)2
Кажется так. Но ты сам попробуй подумать.
Использовать Чертежник
алг
нач
сместиться на вектор (5,8)
опустить перо
сместиться на вектор (0,1)
сместиться на вектор (-5,0)
сместиться на вектор (0,-9)
сместиться на вектор (4,0)
сместиться на вектор (1,1)
сместиться на вектор (0,3.5)
сместиться на вектор (-1,1)
сместиться на вектор (-4,0)
поднять перо
кон