Program pokypka;
var s,os,v1,v2,v3:integer;
begin
writeln('Введите имеющуюся сумму');
readln(s);
writeln('Введите цену первой вещи');
readln(v1);
writeln('Введите цену второй вещи ');
readln(v2);
writeln('Введите цену третьей вещи');
readln(v3);
os:=s-v1-v2-v3;
writeln('Остаток денег=',os)
end.
1.
37*37*2=2738
2.
161*161=25921
4 Кбайт = 4096 байт = 32768 бит
32768 бит/25921=1.26
1 Cvet
p.s. ne uveren 2
лестья -яблоня-ствол-ветки-плоды
A1 A2 B1 B2 C1 C2 ---> 6 ячеек