На примере DelphiVarX:integer; Button_Click() BeginS:=0;x:=StrtoInt(Text1.text);x:=x mod 10; Label1.caption(InttoStr(x)); End; Результат: 5
Непонятно, почему у вас координаты сначала написаны в двоичной системе, ведь в задаче про неё не написано.
Ну да ладно, я перевёл все координаты в десятичную систему счисления и нарисовал рисунок по этим точкам (смотри рисунки внизу). Вроде напоминает зайца какого то. Ну или Пятачка, друга Винни Пуха :)
Const
prise = 20.4;
var
i:integer;
begin
for i:=2 to 20 do write(i,' штук(и) -- ',prise*i,' рублей(я)',#13#10);
end.
О КП ибо аналога Владислав
1.a
2.b
3.b
4.e
5.e
6.f
7.e
8.d
по-моему такие ответы,точно уже сейчас не помню, а дальше у вас на фото не видно.)