Дана последовательность из N вещественных чисел. Переменной t присвоить значение true, если в последовательности нет нулевых элементов. Написать программу для Pascal ABC и блок-схему. Студенческий уровень.

Question

Информатика

Марися

1 сентября, 14:18

Дана последовательность из N вещественных чисел. Переменной t присвоить значение true, если в последовательности нет нулевых элементов. Написать программу для Pascal ABC и блок-схему. Студенческий уровень.

+2

Ответы (1)

Знаете ответ на вопрос?

Аскольд · Answer 1

Var

N, i: integer;

x: real;

t: boolean;

begin

readln (N) ;

i : = 0;

repeat

i : = i + 1;

Readln (x) ;

until (x < 0.001) or (i = N) ;

t : = x > 0.001;

writeln (t)

end.