Найти наибольшее из трех чисел.
ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА (продолжение)
При сложных условиях применяются логические связки:
And - истинно, когда истинны все составляющие логические выражение
Пример: ((x>=0) and (x<=5)) истинно для x из интервала [0;5] и ложно при x=6
Not- истинно, когда ложно исходное логическое выражение
Пример: not(x>=0) истинно для x= -5 и ложно для x=6
Or- истинно, когда истинно хотя бы одно из логических выражений
Пример: ((a<5) or (a>9)) истинно для a=2 и ложно для a=6
Если требуется после THEN или ELSE применить более одного оператора, то
применяются ОПЕРАТОРНЫЕ СКОБКИ BEGIN..END.
Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение:
Здравствуйте!
Зовут меня Алексеева Ольга Вячеславовна, но друзья обычно называют меня Оленькой. У меня много хобби и пристрастий: я люблю заниматься вышивкой гладью и вязанием на спицах, люблю читать, преимущественно детективы. Моя любимая книга детективного жанра - "Приключения Шерлока Холмса" Сэра Артура Конан Дойля. Еще я получаю огромное удовольствие от просмотра документальных фильмов. Больше всего мне нравится исторический сериал "Великая". Помимо этого я питаю слабость к классической музыке. Я восхищаюсь и с наслаждением слушаю Шопена и симфонии Моцарта. А что касается стиля в одежде - то здесь я предпочитаю удобный стиль "Кэжуал".
за внимание!