b:=7+(2143 div 100)*10=7+(21*10)=7+210=217;
a:=(10*217-2143) mod 10=(2170-2143) mod 10=27 mod 10=7
Ответ: a:=7; b:=217
Var x,y: real;
begin
readln(x);
y:=x/(1+((x*x)/5+(x*x*x)));
writeln(y);
end.
while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)
Никлаус Вирт"Алгоритмы и структуры данных"<<Тебе сюда(Никто ответы тут писать тебе не будет)