1) Цикл от 2 включительно, до 20 включительно. 2) Видим первое условие: i>=3 и i<=8 соответственно, когда циклическая переменная будет равна 3 (i=3) будет выполнено условие. А также при i=9 условие не будет выполняться. 3) Видим второй блок условий. Они подразумевают, что квадрат переменной не должен быть выше границы в 20 единиц. Берем на заметку, что квадрат 5 равен 25, что является подходящим под условие и принудительно завершит цикл. 4) Итак, при первом цикле переменная равна 2. Ни одно из условий не выполниться. При i=3 выполниться первое условие и сумма увеличиться на остаток от деления i на 2, т.е. на 1. Это условие будет выполняться до 5, позже цикл прервёт второе условие. Значит необходимо посчитать остатки от деления i (3..5) на 2. ответ: 2
// PascalABC.NET 3.2, сборка 1514 от 11.08.2017 // Внимание! Если программа не работает, обновите версию!
begin var (x,y):=ReadReal2('Введитие координаты точки'); if (x<0) and (y>0) then Writeln('Точка лежит во II четверти') else Writeln('Точка не лежит во II четверти') end.
Пример Введитие координаты точки -4.6 7 Точка лежит во II четверти
begin var n:=ReadInteger('Введите двухзначное число'); if n div 10+n mod 10>9 then Writeln('Сумма цифр больше девяти') else Writeln('Сумма цифр не больше девяти') end.
Примеры Введите двухзначное число 47 Сумма цифр больше девяти
Введите двухзначное число 81 Сумма цифр не больше девяти
2) Видим первое условие: i>=3 и i<=8 соответственно, когда циклическая переменная будет равна 3 (i=3) будет выполнено условие.
А также при i=9 условие не будет выполняться.
3) Видим второй блок условий. Они подразумевают, что квадрат переменной не должен быть выше границы в 20 единиц. Берем на заметку, что квадрат 5 равен 25, что является подходящим под условие и принудительно завершит цикл.
4) Итак, при первом цикле переменная равна 2. Ни одно из условий не выполниться. При i=3 выполниться первое условие и сумма увеличиться на остаток от деления i на 2, т.е. на 1. Это условие будет выполняться до 5, позже цикл прервёт второе условие. Значит необходимо посчитать остатки от деления i (3..5) на 2.
ответ: 2
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введитие координаты точки');
if (x<0) and (y>0) then Writeln('Точка лежит во II четверти')
else Writeln('Точка не лежит во II четверти')
end.
Пример
Введитие координаты точки -4.6 7
Точка лежит во II четверти
begin
var n:=ReadInteger('Введите двухзначное число');
if n div 10+n mod 10>9 then Writeln('Сумма цифр больше девяти')
else Writeln('Сумма цифр не больше девяти')
end.
Примеры
Введите двухзначное число 47
Сумма цифр больше девяти
Введите двухзначное число 81
Сумма цифр не больше девяти