Ответ:
program kod;
var
a: array [1..10] of Integer;
i, p: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=-40+Random(91);
p:=1;
for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];
end.
Объяснение:
У меня второй вариант решения. Размерность массива: [1..10] можно любую делать
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
Ответ:
6 28 496 8128
3.5×1024=13684 байт
в він_125 1 символ =8біт або 1 байт
в юнікод 1 символ =16 біт або 2 байти
отже 13684 символи в він1251
і 13684/2=6 792 символів у юнікод
121(7) + 1 = 101(8)
64 + 1 = 65
<h2>Растровая графика</h2>
- изображение строится из пикселей
- во внешней памяти хранится информация о пикселях, составляющих изображение
- размер файла больше, чем у файла с векторной графикой
- качество изображения ухудшается при масштабировании
- изображение может быть любого вида, достаточно универсальный метод, подходит для большинства устройств ввода-вывода
- изображение теряет качество при масштабировании, большой объём файла
<h2>Векторная графика</h2>
- изображение строится из простых объектов(линия, окружность и т.д.)
- во внешней памяти хранится информация о простых объектах(фигурах), которые составляют изображение
- размер файла меньше, чем у файла с растровой графикой
- качество изображения не изменяется при масштабировании
- изображение хранится без потери качества, меньший размер файла
- не каждое изображение возможно хранить в векторной графике
<em>Пример растрового и векторного изображений</em>
