Регистрация
sadpoli
08.08.2020 00:32
Информатика
Есть ответ 👍

Вводится число n, а затем n чисел. подсчитайте, сколько среди данных n чисел нулей.

172
477
Посмотреть ответы 2

Ответы на вопрос:

VasyaPupkin2281488
VasyaPupkin2281488
4,4(85 оценок)
  program z_n; var a: array[1..10000] of integer; n,c,i: integer; begin readln(n); for i: =1 to n do begin readln(a[i]); // вводите числа через enter if a[i]=0 then c: =c+1; end; writeln('среди  введеных  чисел' ,c,'  нулей'); end.
bodnari2121bodn
bodnari2121bodn
4,5(78 оценок)

Объяснение:

1.

program z1;

var x,y:real;

begin

writeln('введите х');

readln(x);

if x<>2 then

begin

y:=(2*x+3)/(x-2);

writeln('y=',y);

end

else

writeln('не существует');

end.

2.

program z1;

var s,k,i:integer;

begin

s:=0;

writeln('введите k');

readln(k);

for i:=1 to k do

if i mod 2<>0 then

s:=s+i;

writeln(s);

end.

Популярно: Информатика