Язык C++.
#include < iostream >
using namespace std;
int main (){
int t = 0;
for (int k = 1; k <= 35; k++)
if (k%3 == 0)
t += k;
cout << t << endl;
}
Program pr1;
Uses Crt;
Var
x,m:real;
Begin
ClrScr;
write('Введите скорость скачивания:');
readln(x);
m:=round(0.3*60*x*0.125);
writeln('Потребуется ',m,' мегабайт');
readln;
end.
Заполнение с клавиатуры:
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
Write('Введите a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn('S = ',S);
End.
Заполнение случайными числами:
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(A[i],' ');
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.