Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)
101010102-2528+716=101008290
Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.
Обозначения:
К=0
О=1 ( троичная система счисления)
Р=2
список:
№ 3 сс 10сс
1 00000 0
2 00001 1
3 00002 2
4 00010 3
...............................
182 Х 181 (10сс)
181 (10сс)= 20201 (3сс) =РКРКО
Х=РКРКО
ответ РКРКО
1)20+50+63=133(всего денег потрачено на продукты).
2) 500-133=367(остаток денег, после покупки продуктов)
а как в паскале делать, не догадываюсь, что если, то есть) не судите строго, хоть чем-то помогла))