Var a,b,c,p: Real;
begin
writeln('Введите a,b,c,p');
readln(a,b,c,p);
writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
end.
0,5 Кбайт = 4096 бит
4096:8=512
(8 бит - вес одного символа)
1. 32 * 40 * 48 = 61440 символа
8 бит = 1 байт
ответ: 61440 байт
2. 16 * 30 *32 = 15360 символов
16 бит = 2 байта
ответ 15360 * 2 = 30720 байт
3. 14 * 36 * 64 = 32256 символа
ответ 32256 * 2 = 64512 байта
за 128 секунд вася пробегает 1024м.и это на самом деле 65536см
тогда за одну секунду он пробегает
65536/128=512 см
100 метров=10000см
10000/512=19,5(раз по 512 см в стометровке.)
тогда В реальности вася пробегает 100 метров за 19,5 секунд
дай мне лучшее решение)
// PascalABC.Net
var arr: array [1..15] of integer;
count: integer;
begin
for var i:=1 to 15 do
arr[i]:=random(1, 300);
writeln('Исходный массив: ');
for var i:=1 to 15 do
write(arr[i], ' ');
writeln();
count:=0;
for var i:=1 to 15 do
if (arr[i] > 9) and (arr[i] < 100) then
count += 1;
writeln('Количество двузначных чисел: ', count);
end.