1 - 26
2 - 6
3 - 30
4 - 6
5 - 1
6 - 4
7 - 8
div - частное от целочисленного деления, например, 22 div 4 = 5, 26 div 6 = 4 и тд
mod - остаток от целочисленного деления, например, 22 mod 4 = 2, 24 mod 5 = 4 и тд
На самом деле любой пункт верный, но в твоём случае это 1
Зачем в программе вообще стоит запрос х?
1)Нужно убрать из программы запрос х
2) строчка цикла должна выглядеть так :"For x:=(-8) to 0 do"
По идее должно заработать
Program progul ;
var total , lost , visit : real ;
begin
write ('vvedite vsego zaniatii Total=' ) ;
readln ( total ) ;
write ( 'vvedite Propuskov =' ) ;
readln ( lost ) ;
visit := (total - lost ) / total * 100 ;
writeln ( 'procent poseshaemosti=' , visit:5:2 , '%' ) ;
end.
<span>у составных условий отбора больше</span>