<span>int A = Convert.ToInt32(t1.text); //получаем значение из поля и переводим строку в число
bool f=false; //объявили логическую переменную и дали ей значен false
while (A!=0) //цикл, пока А не будет равно 0 он выполняется
{
if(A%10==5) //условие, проверяет если при делении А на 10 равно 5, то
f=true; //флаг получает true
A/=10; //А делиться на 10 и записывается в А
}
T2.text=f?"da":"net";
// тернарный оператор, если t2.text =f, то будет da, если не равно, то будет net</span>
Program zz;
var i,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
write('?') ;
for i:=1 to m do
write('!') ;
end.<span>
</span>
Хоть какие числа будут даны чтоб решать данное уравнение ? Если а и б то алгоритм будет выглядеть так:
a*x+b=0 -> a*x=(-b) -> x=(-b)/a
4, 8, 13, 17.
Т. е. круглое число минус один или половина интервала между ними, округлённая вниз.