первая картинка- числовая информация, сталкиваемся с ней когда хотим что-либо купить( цена товаров), время прибытия поезда, считая на калькуляторе и т.д.
вторая- текстовая информация, сталкиваемся с ней очень часто, например, читая книгу или вывески на улицах
третья, четвёртая, пятая- графическая информация, с ней мы сталкиваемся тоже очень часто, рассматривая картины на выставке, например
1)32x32=1024 точки.
2)512 байт=4096 бит.
3)<span>4096/1024 = 4 бит на каждую точку.
</span>4)2^4=16 цветов .
Ровно 13 строк:
program Geron;
var ab,bc,ca,p: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите сторону треугольника AB: ');
readln(ab);
write('Введите сторону треугольника BC: ');
readln(bc);
write('Введите сторону треугольника CA: ');
readln(ca);
p:=(ab+bc+ca)/2;
writeln('Площадь треугольника равна ',sqrt(p*(p-ab)*(p-bc)*(p-ca)):0:3)
end.
Var
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
begin
Read(a[i]);
if (a[i] mod 2 = 0) then cnt:= cnt+1;
end;
Writeln(cnt);
end.