Выберите из предложенного списка команду языка программирования Pascal объявляющую имя программы: *

1program

2begin

3read

4var

Выберите из предложенного списка команду языка программирования Pascal объявляющую имена и типы переменных: *

1read

2var

3program

4begin

Выберите из предложенного списка команду языка программирования Pascal объявляющую начало описания алгоритма: *

1read

2begin

3var

4program

Выберите из предложенного списка команду языка программирования Pascal предназначенную для вывода на экран сообщений для пользователя: *

1read

2begin

3writeln

4var

Используем формулу Герона для нахождения площади треугольника по трем сторонам: S=√(p·(p-a)·(p-b)·(p-c)), где p - полупериметр, равный
p=(a+b+c)/2

Программа:

program z;
var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2:real;
begin
readln(a1,b1,c1);   {ввод длин сторон первого треугольника}
p1:=(a1+b1+c1)/2; {полупериметр первого треугольника}
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника}

readln(a2,b2,c2);  {ввод длин сторон второго треугольника}
p2:=(a2+b2+c2)/2; {полупериметр второго треугольника}
s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника}
if s1=s2                   {если площади треугольников равны}
then writeln('Yes')   {то вывести положительный ответ}
else writeln('No');    {иначе вывести отрицательный ответ}
end.

160 Кбайт

Объяснение:

I = K * i  

I - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей)

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N =  

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

Дано:

К = 1 280 * 1 024 = 1 310 720 пикселей

N = 2 цвета

Найти:

I (Кбайт)

2 =  

2 = 2¹

i = 1 бит

I = 1 310 720 * 1 = 1 310 720 бит = 163 840 байт = 160 Кбайт

1 байт = 8 бит

1 Кбайт = 1024 байт