С целыми числовыми типами данных Паскаля можно выполнять следующие операции:
Арифметические:
сложение(+);
вычитание(-);
умножение(*);
остаток от деления (mod);
возведение в степень;
унарный плюс (+);
унарный минус (-).
Операции отношения:
отношение равенства (=);
отношение неравенства (<>);
отношение меньше (<);
отношение больше (>);
отношение не меньше (>=);
отношение не больше (<=).
✓Возможное переполнение результата никак не контролируется (это важно!), что может привести к ошибкам.
X := 47
z := 1
i := 0
1 итерация цикла:
z := (1+47/2)/2 = 12,25 (округляем, получаем 12,2)
i := 0 + 1 = 1
2 итерация цикла:
z := (12,2 + 47/2)/2 = 17,85 (округляем, получаем 17,8)
i := 1 + 1 = 2
3 итерация цикла:
z := (17,8 + 47/2)/2 = 20,65 (округляем, получаем 20,6)
i := 2 + 1 = 3
4 итерация цикла:
z := (20,6 + 47/2)/2 = 22,05 (округляем, получаем 22)
i := 3 + 1 = 4
i < 4 - условие не выполняется, выводим 22
Ответ: 22
4. НЕ(X>5)И(X>4) это значит X<=5 и X>4, значит 4<x<=5, значит x=5 (ответ 2)
5. X>=5 и X<6, значит x=5, ответ 2.
17. Первая цифра должна быть нечётная И последняя цифра нечётная, значит ответ под номером 3
18. Первая буква не гласная И последняя буква не согласная, значит первая буква согласная и последняя буква гласная. Ответ под номером 2.
47. Кол-во гласных букв нечётно и первая - гласная. Ответ под номером 1.
48. количество гласных чётное и первая - гласная. Ответ номер 2.
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.