Автозаполнение порядкового номера,автозаполнение формул
Var a,b,c,x,y,s: integer; begin readln (a,b,c); x:=c; y:=c; s:=0; while x<=a do begin s:=s+1; x:=x+c end; x:=s; s:=0; while y<=b do begin s:=s+x; y:=y+c end; writeln (s)end.______________________
Примеры:
5 6 26
2 3 40
1. наушники
2. мышь
3. клавиатура
4. микрофон
5. монитор