var i,count: integer;
proizv:longint;
begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.
Ответ:
1.
var a:array[1..6]of integer;
i,k:integer;
begin
k:=0;
write('Массив: ');
for i:= 1 to 6 do
begin
a[i]:= random(5);
write(a[i]:4);
if a[i]=4 then k:=k+1
end;
writeln;
if k=0 then writeln ('В массиве нет элементов равных 4')
else writeln('Количество элементов равных 4 равно ',k)
end.
2.
var a:array[1..6,1..6]of integer;
b:array[1..36]of integer;
i,j,k,z,y,m:integer;
begin
k:=0;
writeln('Массив A ');
for i:= 1 to 6 do
begin
for j:= 1 to 6 do
begin
a[i,j]:= random(51);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
k:=1;
for i:= 1 to 6 do
begin
for j:= 1 to 6 do
begin
for z:=1 to 6 do
begin
for y:=1 to 6 do
begin
if (z<>i) and (y<>j) and (a[i,j] = a[z,y]) then
begin
b[k]:=a[i,j];
k:=k+1
end;
end;
end;
end;
end;
writeln('Массив B ');
for i:= 1 to k-1 do write (b[i]:3);
writeln;
writeln;
m:=b[1];
for i:= 2 to k-1 do if b[i]>m then m:=b[i];
writeln('Максимум среди элементов повторившихся более одного раза в массиве А равен ',m);
end.
Объяснение:
В массиве B во второй задаче находятся повторяющиеся элементы массива А.
Похоже на то, что ящик ждет на вход только число и выводит 1. если оно нечетное и 0 - если четное. Если на вход задано не число, то ящик выводит "Не могу".
В пустой строке 0.
Неправильно записанные: а, б.
Объяснение:
а: У закрывающего тега нет атрибутов
б: Тега size вообще не существует, а если это атрибут он не может писаться отдельно от открывающего тега... А вообще еще по правилам html 5 у само закрывающихся тегах на конце пишется /: <br /> <hr />
...
Все остальные верны, так как:
в: Абзац, выравненный по центру
г: Закрывающий тег <h1>
д: <font> - Контейнер для изменения характеристик текста в нем. В данном случае в нем будет текст со шрифтом Arial
...
Если не сложно нажми "Спасибо" ;)
Пушкин и жена брат и семья
