uses Crt;
var a, b, temp, i, S:integer;
begin
ClrScr;
Write (' a = '); ReadLn(a);
Write (' b = '); ReadLn(b);
S:=0;
i:=a;
while i<=b do
begin
if (i mod 2 = 0) then S:=S+i;
i:=i+1;
end;
WriteLn(' S = ', S);
ReadLn;
end.
1)
Program kpa6ya;var x,y,N:integer;BEGINwriteln('x=');readln(x);writeln('y=');readln(y);writeln('N=');readln(N);if (N<1) and (N<2*108) then begin writeln('BBeguTe oT 1 go 2*108 4ucJlo N, a He ',N); readln(N); end;writeln(N/(x+y),' - BpeM9');END.
1)
const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
writeln;
for i:=1 to n do
write(a[i]:4);
end.
2)
var
a:array[1..1000]of real;
i,n:integer;
begin
writeln('n ?');
readln(n);
for i:=1 to n do
begin
writeln('INPUT ',i,' элемент');
readln(a[i]);
end;
writeln;
for i:=1 to n do
write(a[i]:4:2);
end.
3)
var
a:array[1..1000]of real;
i,n:integer;
begin
writeln('n ?');
readln(n);
for i:=1 to n do
begin
a[i]:=random;
write(a[i]:4:2);
end;
writeln;
end.