Очевидно, что условие дано некорректно. 2 бита - это не "его количество информации", а количество бит, отводимых для информации о цвете каждого пикселя (точки). Два бита позволяют записать двоичное число от 0 до 3, следовательно картинка может содержать до четырех цветов. Информационный объем составит 80х2=160 бит. В одном байте 8 бит, поэтому в байтах объем составит 160/8=20 (байт).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a,b,c,sum,p:integer;
sr:real;
begin clrscr;
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
sum:=a+b+c;
writeln(a,'+',b,'+',c,'=',sum);
p:=a*b*c;
writeln(a,'*',b,'*',c,'=',p);
sr:=sum/3;
writeln('sredn./arifm.=',sr:2:3);
readkey;
end.
A=1+2=3
b=3+3+2=8
if((a-13)%10==0)
В первом отряде N мальчиков и 2N девочек. Это 3N детей. Во втором в 5 раз больше. Это еще 15N детей. В сумме 18N. В третьем еще столько же. Это 36N. В четвёртом в 10 раз больше чем девочек в первом. Это 20N. В итоге выходит 56N.
using System;
namespace t29764806
{
internal class Program
{
private static void Main(string[] args)
{
Console.WriteLine("Введите количество мальчиков в первом отряде");
Console.WriteLine($"Количество детей во всём лагере: {56 * int.Parse(Console.ReadLine())}");
}
}
}
Поместите этот макрос в проекте на любой лист и вызовите его
Sub aaa()
Pi = 4 * Atn(1)
r = CDbl(InputBox("Радиус круга"))
a = CDbl(InputBox("Сторона квадрата"))
s1 = Pi * r ^ 2
s2 = a ^ 2
MsgBox IIf(s1 > s2, "Площадь круга больше", IIf(s1 < s2, "Площадь квадрата больше", "Площади равны"))
End Sub
