program chisla;
var summa,n,y,i:longint;
begin
writeln('daite N'); readln(n);
for i:=1 to n do summa:=summa+i;
{etot tikl dayot summu dlya nomera N, primer: n=5, summa=1+2+3+4+5=15;}
y:=(n+1)/2;
if y>summa then writeln('Y > summa N ') else
if y=summa then writeln('Y = summa N') else writeln('Y < summa');
readln;
end.
ya tak ponyal zadachu, esli ne tak, proshu popraviti. spasibo
// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(30,-10,20).Println(',');
Writeln('Сумма элементов, больших 10, равна ',
a.Where(x->x>10).Sum);
end.
<u><em>Тестовое решение:</em></u>
4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18
Сумма элементов, больших 10, равна 125
1.
Program num1;
Uses crt;
Var
a :array [1..100] of integer;
i,k,n, s : integer;
Begin
clrscr;
s:=0;
write('K=');readln(k);
write('N=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] MOD k)=0 then s:=s+a[i];
writeln('S=',s);
End.
2.
Program num2;
Uses crt;
Var
a :array [1..100] of real;
i,n,j : integer;
x : array [1..100] of real;
Begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(a[i]);
j:=1;
for i:=1 to n do
if a[i]=0 then
begin
x[j]:=i;
j:=j+1
end;
for i:=1 to j-1 do
write(x[i],' ');
End.
3.
Program num3;
Uses crt;
VAr
a :array [1..100] of real;
i,n : integer;
Begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if a[i]<>0 then
if a[i]>0 then
begin
writeln('Положительное встречается раньше');
break
end else
begin
writeln('Отрицательное встречается раньше');
break
end;
end;
End.
4.
Program num4;
Uses crt;
Var
a : array [1..100] of real;
i, n, j :integer;
Begin
clrscr;
write('n=');readln(n);
a[n+1]:=a[n]+1;
for i:=1 to n do
readln(a[i]);
j:=0;
i:=1;
while i<n do
begin
if a[i]<a[i+1] then
begin
j:=j+1;
i:=i+1
end
else
begin
writeln('Последовательность невозрастающая');
break
end;
end;
if i=n then writeln('Последовательность возрастающая');
End.
#include <iostream>
int main() {
int n;
std::cin >> n;
int i = 2;
while (n % i > 0) ++i;
std::cout << i;
return 0;
}
Информатика – очень современная область знаний. Мы изучаем ее в школе, как предмет, но не только. Зачем нужна информатика? В современном мире мы каждый день сталкиваемся с новейшими технологиями. У меня дома есть компьютер, подключенный к Интернету. Когда я ищу что-нибудь в Интернете или пишу другу сообщение, то использую достижения информатики.
Вокруг нас – море информации, а наука информатика как раз решает вопросы, как управлять этим морем. Поэтому она и носит такое название. Без достижений информатики не существовало бы компьютеров, Интернета и других новых технологий, которые уже стали для нас привычны. Не было бы даже вычислительных машин, которые могут производить сложные расчеты за доли секунды. А расчеты нужны везде: на производстве, в банках, на линиях транспорта. Жизнь была бы намного сложнее, если бы информатика не развилась до такого уровня, как сейчас.
Не было бы поисковых систем, с помощью которых сейчас можно отыскать нужны информацию. Я не говорю, что можно найти любую информацию о любом человеке, потому что в мире всегда остаются тайны и секреты. Но большинство информации, полезной в учебе и повседневной жизни, найти можно. Ну, и море всякого интересного тоже. Еще лет двадцать назад для этого пришлось бы идти в библиотеку и рыться там полдня.
Возникает вопрос, зачем изучать информатику всем школьникам? Ведь далеко не все станут программистами, системными администраторами, веб-дизайнерами? Наверное, смысл этого в том, чтобы все понимали, с чем они сталкиваются каждый день, как это действует. Ведь не зря наше время называется информационной эпохой.
