Разработать информационную технологию, позволяющую вычислять объем и боковую поверхность усеченной пирамиды, если заданы ее апофема, высоты, периметры и площадь верхнего и нижнего оснований. в pascal бы и сам сделал, а с vba раньше не работал.
2) не очень большая цена (по сравнению в переносными внешними жесткими дисками)
3) быстрый переноса информации
4) не требуется домолнительных прграмм для сохранения информации
5) есть возможность работать прямо с носителя.
многое это есть и у других носителей, но например дискеты обладают маленькой памятью, для работы сс дисками надо иметь и дисковод и, что бы записать туда информацию, необходимо программу. А переносной внешний жеский диск имеет достаточную стоимость, что не покараману некоторым.
1) достаточно большой объем
2) не очень большая цена (по сравнению в переносными внешними жесткими дисками)
3) быстрый переноса информации
4) не требуется домолнительных прграмм для сохранения информации
5) есть возможность работать прямо с носителя.
многое это есть и у других носителей, но например дискеты обладают маленькой памятью, для работы сс дисками надо иметь и дисковод и, что бы записать туда информацию, необходимо программу. А переносной внешний жеский диск имеет достаточную стоимость, что не покараману некоторым.
1)
var
a: array[1..10] of integer; //Массив целочисленных элементов а
i, n: integer; //n - количество элементов, равных 1
begin
n:= 0; //Обнуляем счетчик
write('Исходный массив: ');
for i:= 1 to 10 do {Заполняем массив случайными элементами от 0 до 2, распечатываем его и считаем количество элементов, равных 1}
begin
a[i]:= random(3);
write(a[i], ' ');
if a[i] = 1 then n:= n + 1;
end;
writeln;
writeln('Количество элементов, равных 1: ', n);
end.
2)
var
a: array[1..10] of integer; //Целочисленный массив а
i: integer;
b: boolean; {Логическая переменная, определяющая, есть ли в массиве элемент, равный 5}
begin
b:= false; //Присваиваем начальное ложное значение логической переменной
write('Исходный массив: ');
for i:= 1 to 10 do {Заполняем массив элементами в диапазоне от 1 до 10 и печатаем его}
begin
a[i]:= random(9) + 1;
write(a[i], ' ');
end;
writeln; //Перевод на новую строку
for i:= 1 to 10 do //Определяем, есть ли в массиве элемент, равный 5
if a[i] = 5 then {Если элемент равен 5, то печатаем 'да', присваиваем переменной b истинное значение и break - выход из цикла}
begin
writeln('Да');
b:= true;
break;
end;
if b = false then writeln('Нет'); {Если в массиве нет элемента, равного 5, печатаем 'Нет'}
end.
Отметь решение, как лучшее