Program as;
var a,b,c,d,p,s:real;
uses crt;
clrscr;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
readln;
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.
1 рис.-караси и хищные. 2 рис.-в 1 круге-караси,во 2-хищные,в большм круге-рыбы
7 Кбайт=7168 байт=57344 бит
K-количество пикселей
K=64*128=8192
V=K*i,где i-это глубина цвета в битах
i=V/K=57344/8192=7 бит-это приходится на один пиксель
N=2^i, где N-количество возможных цветов в палитре
N=2^7=128 цветов.
Ответ: 128
#include <iostream>
using namespace std;
int main()
{
int n, ans = 0;
cin >> n;
vector <int> f(n);
for (int i = 0; i < n; i++)
{
cin >> f[i];
if (f[i] % 2 == 0) ans++;
}
cout << ans;
return 0;
}
язык - c++