Вопрос по информатике:
Помогите очень срочно! 315. По данному натуральному n вычислите сумму 1^2 + 2^2+...+n^2. Вводится единственное число n. Необходимо вывести вычисленную сумму. 346.Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел. 347.Вводится число N, а затем N чисел. Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.
- 04.04.2018 21:46
- Информатика
- remove_red_eye 17156
- thumb_up 94
Ответы и объяснения 1
Буду по порядку добавлять.
1)
uses crt;
var n,s,i:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
write('s=',s);
end.
2)
uses crt;
var a:array [1..100] of real;
n,i,p,o,l:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
begin
readln(a[n]);
if a[n]>0 then p:=p+1;
if a[n]<0 then o:=o+1;
if a[n]=0 then l:=l+1;
end;
writeln(l,p,o);
end.
3)
uses crt;
var a:array [1..100] of real; i,n:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]=0) then writeln('YES')
else writeln('NO');
end.
- 06.04.2018 09:56
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.