600 * 1024 * 8 = 4915200 бит в файле
4915200 / (60 * 8) = 10240 Гц
Вроде так)
<span>#include <iostream>
using namespace std;
int main() {
double a,b,c,d;
cout << "Параметры ямы: ";
cin >> a >> b >> c;
cout << "Объем воды: ";
cin >> d;
if (a*b*c>=d) cout << "YES";
else cout << "NO";
return 0;
<span>}
Пример:
</span><span>Параметры ямы: 2 1.8 0.4
Объем воды: 3.2
NO</span></span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
if (a<>b) and (a<0) and (b<0) and (c<0) then begin
(a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end
else Writeln('Сумма равна ',a+b+c)
end.
1) не ясен вопрос
2) 0 2 6 12 20 30 42 56 72 90
3) 5
4) for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
Код полностью
var
a: array[1..10] of integer;
i, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := sqr(i) - i;
write(a[i], ' ');
end;
writeln;
K := 0;
for i := 1 to 10 do
if (a[i] > 10) and (a[i] < 70) then
k := k + 1;
Write(k);
writeln;
for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
end.
Кажется понял в чем проблема.У вас не работало т,к, отсутствовали begin и end; в case .Плюс еще пару недочетов в коде
