const
nn = 100; // максимальное число элементов
var
a: array[1..nn] of integer;
i, n: integer;
p: real;
begin
write('n = ');
read(n);
writeln('введите элементы массива');
p := 1;
for i := 1 to n do
begin
read(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 <> 0) then
p := p * a[i];
end;
writeln('П = ', p);
end.
1 мбайт=1024 кбайт=2048 байт.
1 гбайт=1024 мбайт=102400 кбайт.
2 тбайт=2048 гбайт=2048000 мбайт.
1 гбайт 536 мбайт=1536 мбайт=153600 кбайт.
Решение на Паскале
var i, sum, s, ks :integer;
Begin
s:= 0;
for i:=50 to 150 do s:=s+i*i;
sum:=0;
for i:=50 to 150 do sum:=sum+i;
ks:=sqr(sum);
writeLn('Сумма квадратов целых чисел от 50 до 150 = ',s);
writeLn('Квадрат суммы целых чисел от 50 до 150 = ',ks);
end.
1. необходимо знать таблицы истинности операций эквивалентности, импликации, логического умножения.
2. Решение строится из соображения, что лог. функция, состоящая из трёх лог. выражений, объединённых операцией лог. умножения, равна 1, когда каждое из лог. выражений равно1.
<u><em>Текст программы (Pascal)</em></u>
var
a,b,c,d,e:byte;
k:integer;
begin
k:=0;
for a:=1 to 9 do begin
for b:=0 to 9 do
if b<>a then begin
for c:=0 to 9 do
if (c<>a) and (c<>b) then begin
for d:=0 to 9 do
if (d<>a) and (d<>b) and (d<>c) then begin
e:=0;
repeat
if a*c-c*e=a-b+c+d+e then Inc(k);
e:=e+2
until e<9
end
end
end
end;
Writeln(k)
end.
<em><u>Тестовое решение:</u></em>
190