Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае

@VLena · Регистрация: 21.09.2015

Студворк — интернет-сервис помощи студентам

Проверьте, есть ли среди данных N чисел нули.

Входные данные
Вводится число N, а затем N чисел.

Выходные данные
Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.

@vint-81 · 25.10.2015, 10:56

Pascal

const yn:array[boolean] of string=('NO','YES');
var a,n:integer;f:boolean;
begin
 write('n=');readln(n);
 f:=false;
 for n:=1 to n do
  begin
   write(n,' число:');readln(a);
   if a=0 then f:=true
  end;
 writeln(yn[f])
end.

@vovaraw · 10.12.2019, 18:03

Проверено на информатиксе

Pascal

var i,x,N,k:integer;
 begin
  k:=0;
  readln (N);
  for i:=1 to N do 
   begin
    readln(x);
    if (x=0) then
     begin
      writeln ('YES');
      k:=1;
      break;
     end;
   end;
    if (k<1) then
    writeln ('NO');
 end.

@VLena 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 211
		1
	Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае 25.10.2015, 10:13. Показов 6104. Ответов 2 Метки нет (Все метки) Проверьте, есть ли среди данных N чисел нули. Входные данные Вводится число N, а затем N чисел. Выходные данные Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае. 0

Опции темы

Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае

Решение