#include <iostream>
using namespace std;
int main()
{
int even= 0;
for (int i=1; i <=70;i++)
{
if (i%2==0)
even+=i;
}
cout<<"Even= ";
cout<<even;
return 0;
}
Тем, что память человечества - это всего лишь информация, а память человека - это способ доступа к информации.
Program gt;
var a:array[1..100]of integer;
n,i:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if(a[i]<=0)then write(a[i],' ');
for i:=1 to n do
if(a[i]>0)then write(a[i],' ');
end.
Program Fibonacci;
var
p, q, r, i, n: integer;
begin
write('Alphaeus asks: please enter n = ');
readln(n);
p := 1;
writeln(p);
q := 1;
writeln(q);
for i:=3 to n do begin
r := p+q;
writeln(r);
p := q;
q := r
end;
end.
uses crt;
var
i, k: integer;
a,k2: real;
mas, ma: array [1..10] of integer;
begin
randomize;
write (' razmer massiva = '); readln (k);
for i:=1 to k do
mas[i]:= random (10);
for i:=1 to k do
write (mas[i],' ');
for i:=1 to k do
if i mod 2<>0 then a:= mas[i]+a;
writeln;
if k mod 2<> 0 then begin k:=k+1; k2:= k/2; end else k2:= k/2;
a:= a/k2;
write ('sredn znach = ',a);
readkey;
end.