Program n1;
Uses CRT;
Var a,b,s,i: integer;
begin
writeln('Vvedite A i B');
readln(a,b);
If a>b then
for i:=b to a do
begin
writeln(i);
s:=s+i;
end
else
if b>a then
for i:=a to b do
begin
writeln(i);
s:=s+i;
end
else writeln('ravny');
writeln('Summa = ',s);
readln
end.
Д руг
р исунок
у тенок
ж алость
б раслет
а арбуз
Вам необходимо зайти на сайт например Куй или Юлмарт и выбрать компьютер в сборе, что-нибуть в районе 12-15 т.р. без ОС, т.к. из игр вам там нужен будет пасьянс, а для офисных приложений этого хватит
в Качестве ОС Win7 цену посмотреть в прайсе
MS Office цена там-же
и ваши спецпрги типа 1C цена там-же
вот и все
1-1
2-2
3-1
4-1
5-1
6-2
7-1
8-1
9-4
10-2
11-3
12-4
13-1
14-1
15-1
16-1
17-4
18-2
19-4
20-4
21-2
22-2