1 раз выполнится. Он проверяет 5<8? Да! Тогда 5+4=9. Далее 5<9? Нет! Выходим из цикла
Program task;
var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.
Ответ:
Если добавить пропущенные пробелы, то верно.
Объяснение:
Можно убедиться в этом, например, так:
Const a:array[1..3]of integer=(13,8,58);
begin
writeln(a[1],' ',a[2],' ',a[3]);
end.
Результат:
13 8 58
Начинаешь закрашивать со стеночки а потом таким же темпом циклом НЦ ПОКА СВЕРХУ СНИЗУ ЗАКРАШЕНО ВЛЕВО ВПРАВО)
AV(~A)
V-дизъюнкция(максимум)
~A-не А
Максимум из А и (не А)(А может быть только 0 или 1) всегда равен 1.
AV(~A)=1
Ответ:AV(~A)=1