<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(7,3,t->3*t); a.Println
end.
<u>Результат</u>
3 9 27 81 243 729 2187
Разновидность компьютеров:Настольный компьютер он же «desktop» он же персональный компьютер (ПК) – в основном предназначен для работы в офисе и дома, где его размер позволяет комфортно сосуществовать вместе с человеком не занимая относительно много места (один на 4-5 кв. м.) и позволяет свободно передвигаться. Состоит из системного блока( бывают разных размеров, делаются как вертикальном так в горизонтальном исполнении) , монитора клавиатуры и манипулятора(мышка). Этот список может продолжаться но об этом немного попозже дабы вас не перегружать. В свою очередь системный блок состоит из материнской платы на которой основан весь компьютер , процессор, оперативная память, жесткий диск (устройство на котором хранится информация), видеокарта (плата отвечающая за вывод изображения на монитор), иногда в бюджетных вариантах компьютера видеокарта встраивается в материнскую плата для удешевления, но в таком варианте трех мерных игрушках можно забыть, DVD-привод.Неттоп он же сетевой компьютер - компактный, эргономичный и экономичный ( в смысле энергопотребления) настольныйкомпьютер, как правило небольшая коробочка легко поместиться в руке и может транспортироваться в небольшой сумке. Предназначен прежде всего для просмотра интернет ресурсов, цифровых фотографий, работы в тестовых и графических редакторов небольшой сложности. Надо понимать, что за компактность надо чем то платить – Вы не сможете на нем поиграться в трехмерные игры, посмотреть видео высокого качества, нормально работать с большими базами данных 1с и т.д. Зачастую это минимальные технические характеристики компьютера с той же клавиатурой монитором и т.д. к тому же без DVD привода. Технически законченное изделии и модернизации не подлежит.Моноблочный компьютер, сравнительно недавно вышедший на широкий рынок компьютер. Но все новое это хорошо забытое старое. Ране известная всем фирма «Apple» выпускала свои графические станции в таком исполнении, тогда еще мониторы с лучевыми трубками были напичканы электроникой из системного блока и представляли собой единое целое. В сегодняшним исполнении это тот же жидкокристаллический монитор но немного более толстый чем обычный. Сзади в мониторе и находится «системный блок» компактно установлены та же системная плата жесткий диск и видеокарта. Зачастую туда умудряются вставить бесперебойник, WiFi, blue tooth, кардридер и прочие сервизы. Как правило как и неттоп является и техничеси законченным изделии и плохо подвергается модернизации и улучшению. По производительности чуть ниже настольного компьютера если учитывать затраченные денежные средства на моноблк за которые можно было бы купить desktop.Нетбук (Netbook) – это младший брат ноутбука но с гораздо меньшими клавиатурой монитором в районе 10-ти дюймов ,
небольшим объемом жесткого диска до 120 Гб , (в случае с твердотелльным магнитным носителем до 30) и как правило отсутствием DVD-привода, так как его не позволяют разместить небольшие размеры. По производительности нетбук примерно равен неттопу. Тем не менее сей лэптоп на ранке все еще сущкствует, что продтверждает определенный спрос на него, хотя в последнее время его сильно потеснил планшетный ПК о котором в поговорим следуещем пункте.Планшетные ПК не так давно вошли в нашу жизнь тем не менее они с каждым днем набирают популярность хотя цена зачастую не меньше среднего ноутбука по производительности. Как правило это компьютер без клавиатуры с сенсорным монитором 7-10 дюймов. Сначала был реализован с поддержкой Windows Vista в виде пера и сенсорного ввода, но технологический прорыв в этой области совершила компания Apple, выпустившая нашумевший iPad на операционной системе android, с удобными интернет сервисами по покупке и установке разнообразных программ. Этим она взорвала рынок так так удачно воплотить идею сенсорного ПК со своей удобной клавиатурой до них еще никто не реализовывал. Как правило они реализованы на мало мощных процессорах с накопителями на твердотельных носителях. Как правило имею блоки беспроводной связи WiFi, blue tooth, кардридер, зачастую присутствует система GPS, вэбкамера, встроенный модем, и другие технические примочки. Хотя опять же самые продвинутые и дорогие из них имеют технические характеристики нетбуков. Зачастую к ним возможно подсоединить компактную клавиатуру.
Условие не совсем понятно, я решил, как понял лично я.
#include <iostream>
#include <string>
int main()
{
using namespace std;
//массив, представляющий рыбы в озере
string Fish[] = { "Sturgeon", "Trout", "Pink Salmon", "Herring",
"Cod", "Burbot", "Zander", "Bream", "Sea Bass" };
//массивы, представляющие рыбы, пойманные рыбаками
string Fisherman1[] = { "Burbot", "Bream", "Herring" };
string Fisherman2[] = { "Trout", "Burbot", "Sea Bass", "Herring", "Zander" };
string Fisherman3[] = { "Zander", "Pink Salmon", "Burbot", "Herring", "Trout" };
//количества элементов в массивах
int FishCount = sizeof(Fish) / sizeof(string);
int Fisherman1Count = sizeof(Fisherman1) / sizeof(string);
int Fisherman2Count = sizeof(Fisherman2) / sizeof(string);
int Fisherman3Count = sizeof(Fisherman3) / sizeof(string);
cout << "Fish caught by everyone:\n";
for (int i = 0; i < FishCount; ++i)
{
bool IsCaught = false;
for (int i1 = 0; i1 < Fisherman1Count; ++i1)
if (Fish[i] == Fisherman1[i1])
for (int i2 = 0; i2 < Fisherman2Count; ++i2)
if (Fish[i] == Fisherman2[i2])
for (int i3 = 0; i3 < Fisherman3Count; ++i3)
if (Fish[i] == Fisherman3[i3])
IsCaught = true;
if (IsCaught == true)
cout << Fish[i] << endl;
}
cout << endl;
cout << "Fish in the lake, but didn't get caught:\n";
for (int i = 0; i < FishCount; ++i)
{
bool IsCaught = false;
for (int i1 = 0; i1 < Fisherman1Count; ++i1)
if (Fish[i] == Fisherman1[i1])
{
IsCaught = true;
break;
}
else
for (int i2 = 0; i2 < Fisherman2Count; ++i2)
if (Fish[i] == Fisherman2[i2])
{
IsCaught = true;
break;
}
else
for (int i3 = 0; i3 < Fisherman3Count; ++i3)
if (Fish[i] == Fisherman3[i3])
{
IsCaught = true;
break;
}
if (IsCaught == false)
cout << Fish[i] << endl;
}
cout << endl;
return 0;
}
Ответ:
есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.
и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке if k> =4 then write(i: 3); уберите знак > .
1 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число n');
for i: = 1 to n do begin
k: =0;
for j: = 1 to i do
if i mod j =0 then k: =k+1;
if k> =4 then write(i: 3);
2 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число n');
for i: = 1 to n do begin
k: =0;
for j: = 2 to (i-1) do
if i mod j =0 then k: =k+1;
if k> =4 then write(i: 3);
