22 1) 2+2=4 2) 2-2=0 3)2*2=4 4)2:2=1
DIM p AS LONG
p = 1
FOR i = 5 TO 18 STEP 5
p = p * i
NEXT i
PRINT p
16 бит - 2 байта. 2*1240*480=1190400 байт 1190400/1024=1162,5 КБайт
32=2^5
256=2^8 количество бит на цвет уменьшилось на 3, значит в (2^3 = 8) уменьшился объем в оперативке
1)
const n = 20;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do begin
a[i] := random(50);
write(a[i], ' ');
if(a[i] mod 7 = 0) then s := s + a[i];
end;
writeln;
writeln('Сумма эл., кратных 7: ', s);
end.
2)
const n = 8;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do begin
a[i] := random(50);
write(a[i], ' ');
if(a[i] mod 2 <> 0) then s := s + a[i];
end;
writeln;
writeln('Сумма нечетных эл: ', s);
end.
3)
const n = 10;
var
a: array[1..n] of integer;
i, s, count: integer;
begin
for i := 1 to n do begin
a[i] := random(50);
write(a[i], ' ');
if(i mod 2 = 0) then begin
s := s + a[i];
inc(count);
end;
end;
writeln;
writeln('Ср. арифметическое эл. с четными номерами: ', s / count);
end.
1.
begin
var a,b:real;
read (a,b);
writeln ('Периметр = ',(a+b)*2,' Площадь = ',a*b);
end.