Program linFun; {название программы}
var
y,x:integer; {переменные}
begin {начало}
readln (x); {мы вводим любое число}
y:=1+x+x*x; {уравнение}
writeln (y); {компьютер выводит ответ}
readln; {чтобы программа ждала нажатие клавиши enter}
end. {конец}
P.S. коментарии в { } можно и написать, а можно и опустить. Комп их всё равно не видит, а вот учитель...
1)7*2=14
2)14-5=9
1)9*2=18
1)18*2=36
2)36-5=31
Ответ:12112
Рассыпаем весь овёс в 2 мешка, потом пересыпаем 3 меры в 10мерный мешок, потом из 7мимерного в 3мерный отсыпаем 3 меры и остается 4. потом эти 4 ровно пополам делишь и отсыпаешь в 10мерный а из 3мерного насыпаешь в 7мименгый в итоге и там и там по 5
Ответ:
Код и пример вывода в прикрепленных файлах ниже.
Объяснение: