Объяснение:
Задание 1
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
var a:=s.ToWords('.').Select(t->Trim(t)).ToArray;
var b:=s.ToWords(Arr('.',' '))
.GroupBy(t->t).Select(t->(t.Key,t.Count))
.Where(t->t[1]>1).Select(t->t[0]).ToArray;
a.Cartesian(b,(p,q)->p.Contains(q)?p:'')
.Where(t->t.Length>0).Distinct.PrintLines
end.
Примеры
Мама мыла полы. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла полы
Таня мыла полы
Мама мыла раму.
Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла рамуТаня мыла полы
Задание 2
uses crt;
var n,i,k:integer;
begin
repeat
write('Введите натуральное число >0 n=');
read(n);
until n>0;
if n=1 then write('Простых множителей нет')
else
begin
write(n,'=');
i:=2;
while i<=n do
begin
k:=0;
while n mod i=0 do
begin
k:=k+1;
n:=n div i;
end;
if i<n then
begin
if k=1 then write(i,'*')
else if k>1 then write(i,'^',k,'*');
end
else
begin
if k=1 then write(i)
else if k>1 then write(i,'^',k);
end;
i:=i+1;
end;
end;
end.
Задание 3
var n,m,i:integer;
function fact(j:integer):longint;
begin
if j=1 then fact:=1 else fact:=j*fact(j-1);
end;
begin
readln(m,n);
for i:=m to n do if i mod 2 =0 then write(fact(i),' ');
writeln;
end.
Задание 4
program SomeProgram;
var i,n,summ:integer;
a:array[1..150] of integer;
begin
readln(n); {ввод размерности массива}
for i:=1 to n do readln(a[i]); {ввод массива}
summ:=0; {обнулим сумму на всякий случай}
for i:=1 to n do {собственно поиск суммы}
if a[i]=i then {коли номер элемента равен элементу, то...}
summ:=summ+a[i]; {...прибавить к сумме значение элемента}
Writeln('Сумма:',summ);
end.
Объяснение:
Вопрос 2:
RAW, PNG, JPG (JPEG), TIFF, BMP, JPEG 2000 (jp2). Цветовая модель — математическая модель описания представления цветов в виде кортежей чисел (обычно из трёх, реже — четырёх значений), называемых цветовыми компонентами или цветовыми координатами. Все возможные значения цветов, задаваемые моделью, определяют цветовое пространство. RGB или КЗС — аддитивная цветовая модель, как правило, описывающая кодирования цвета для цветовоспроизведения с трёх цветов, которые принято называть основными. HSB — это трехканальная модель цвета. Она получила название по первым буквам английских слов: цветовой тон (hue), насыщенность (saturation), яркость (brightness). LAB — аббревиатура названия двух разных (хотя и похожих) цветовых пространств. Более известным и распространенным является CIELAB (точнее, CIE 1976 L*a*b*), другим — Hunter Lab (точнее, Hunter L, a, b). Таким образом, Lab — это неформальная аббревиатура, не определяющая цветовое пространство однозначно. Чаще всего, говоря о пространстве Lab, подразумевают CIELAB.
Задача 4:
Прикрепил
Задача 5:
объём_памяти = длина_изображения * ширина_изображения * глубина_цвета
Отсюда глубина цвета в байтах = объём/площадь или 256к*1024/(1024*512)=0,5
в битах это 8*0,5=4 на каждый пиксель
ими можно закодировать 2^4=16 цветов
первые 1024 взялись из числа байт в килобайте
uses crt;
var a : array [1..50] of integer;
sum, kol, i, raz: integer;
Begin
sum := 0; kol := 0;
write('Размер: '); readln(raz);
for i := 1 to raz do
begin
readln(a[i]);
if i mod 2 = 1 then
begin
kol := kol + 1; sum := sum + a[i];
end;
end;
write('Cреднее арифметическое: ',sum / kol);
End.