Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.
1 + 1 (1й раз) а > 3? нет
2 + 1 (2й раз) a > 3? нет
3 + 1 (3й раз), а > 3? да,
но однако третий раз тело выполнилось, потому что это цикл с постусловием. итого три раза выполнится тело цикла.
a = 4
b = 1, потому что мы его не меняли после инициализации, хотя использовали его для других целей
s = 5
начинай считать с конца, тоесть в твоем случае с 0.
1000110 =
получаеться 0 = 2 в 0 степени, 1 = 2 в 1 степени, 1 = 2 в 2 степени и т.д до конца.
потом все сумируешь, кроме тех значений где 0.
тоесть
2 в 0 степени ты не сумируешь. и получаеться 2 в 3,4,5 степени ты пропускаешь, потом остаеться 1 и это 2 в 6 степени..
сложиваешь 2 в 1 степени + 2 в 2 степени + 2 в 6 степени..
Я считаю, что словами написано верное условие, в приведенном фрагменте ошибка: вместо x > 0 должно быть x >= 0
var x: integer;
begin
readln(x);
if x >= 0 then
x := x - 50
else
x := x + 100;
writeln(x)
end.
Пример ввода:
0
Пример вывода:
-50