Люди всем привет как то даже неловко просить но, не понимаю я толком на сессии не объяснили, сказали вы заочники сами учитесь помогите решить а) На опытном лесном участке ежегодный прирост древесины - 10%. Какое количество ее будет через 6 лет, если в начале 1 года было посажено 20000 м3? б) Найти и выдать на печать все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на a и b. Величины a и b вводить с клавиатуры. тут решение задач было под параграфом алгоритм евклида как делать не понял, заранее спасибо

ГлaвбyxOЙ, первая задача сплошная математика. На егэ в б1 такие дают.
Вот алгоритм ко второй задаче. Надеюсь типы данных и ввод сам долепишь:).
for i:=1000 to 9999 do begin s1:=(i div 1000)+(i mod 10); s2:=(i div 100 mod 10)+(i div 10 mod 10); if (s1=s2) and (i mod a=0) and (i mod b=0) then writeln(i); end; end.

EwGeN DoGG, спасибо большое, дк первую я и в уме посчитать могу вопрос весь в записи мне бы похожую посмотреть, а там напишу :)

ГлaвбyxOЙ, для счётчика от 1 до количества лет повторять: присвоить значению количества дров значение количества дров*1.1

Pavlus, Спасибо, щас попробую набрать

EwGeN DoGG, чет паскаль подчеркивает for i:=1000 вот здесь двоеточие и пишет Error 97: Invalid FOR control variable. Чево ему надо ума не приложу

Все с этим разобрался терь на if (s1=s2) and (i mod a=0) and (i mod b=0) then writeln(i); пишет целочисленное деление на 0

ГлaвбyxOЙ, пробуй мод в скобки.

ГлaвбyxOЙ, помоему оно пишет это в i div 10 mod 10

Pavlus, Да фиг знает поменял на div 10 mod 1 все равно пишет челочисленное деление на 0 может из того что я integer ипользую?

ГлaвбyxOЙ, a и b вводить не забываешь?

EwGeN DoGG, Да я в var все указал ток он вообще чет не компилируется