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

Question

Информатика

Васеня

12 июля, 05:35

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

+1

Ответы (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.