Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.12.2015 15:25
- Информатика
- remove_red_eye 10759
- thumb_up 14
Ответы и объяснения 2
Var sum, k,n,i:integer;
begin
readln(k,n);
sum:=0;
for i:=k to n do
sum:=sum+i*i ;
writeln(sum);
end.
№2
var k,n,i:integer;
begin
readln(k,n);
for i:=1 to n do
write(k, ' ');
end.
3333333333
var pol,otr,nul,a,n,i:integer;
begin
readln(n);
pol:=0;
otr:=0;
nul:=0;
for i:=1 to n do
begin
readln(a);
if a=0 then nul:=nul+1;
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1;
end;
writeln(nul);
writeln(otr);
writeln(pol);
end.
- 06.12.2015 17:03
- thumb_up 22
Program zadacha1;
uses crt;
var s, c, i, k, n: integer;
begin
clrscr;
repeat write ('vvedite k, n: ');
readln (k, n) until k
for i:=k to n do begin
c:=sqr(i);
s:=s+c;
end;
writeln (s);
readkey;
end.
program zadacha2;
uses crt;
var n, k, i: integer;
begin
clrscr;
repeat write ('vvedite k, n: ');
readln (k, n) until n>0;
for i:=1 to n do
writeln (k);
readkey;
end.
program zadacha3;
uses crt;
var n, c, i, count1, count2, count3: integer;
begin
clrscr;
write ('vvedite n: ');
readln (n);
count1:=0;
count2:=0;
count3:=0;
for i:=1 to n do begin
write ('vvedite chislo: ');
readln (c);
if c>0 then count1:=count1+1
else if c<0 then count2:=count2+1
else count3:=count3+1;
end;
writeln ('kolichestvo chisel>0 - ', count1);
writeln ('kolichestvo chisel<0 - ', count2);
writeln ('kolichestvo chisel=0 - ', count3);
readkey;
end.
- 07.12.2015 22:47
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.