Задание 1. Реализуйте проверку попадания переменной x в диапaзон (1; 100), то есть условие должно быть - id2134363220200611 от королева5720 11.06.2020 19:08

Question

Информатика: Задание 1. Реализуйте проверку попадания переменной x в диапaзон (1; 100), то есть условие должно быть истинным, когда х принимает значения в этом диапазоне чисел. Задание 2. Реализуйте противоположное условие, что х не принадлежит диапазону (1, 100).

королева5720 · Accepted Answer

Т.к. требуется использовать цикл 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.

Объяснение:

MOGZ ответил