28800 бит/с = 3600 байт = 3,515625 Кб
Ответ: <span>а)3600 байт</span>
Var x,y:real;
begin
readln(x,y);
if (abs(x)<=1)and(y<=1)and((y>=-x)or(y>=x))
then writeln('Yes') else writeln('No');
end.
Пример:
0.5 -0.4
Yes
Из оперативной памяти
............................
#include <iostream>
#include <iomanip> // std::setprecision
int main()
{
unsigned int W,H,K,P;
unsigned long M;
float T;
std::cin >> W >> H >> K >> P >> M >> T;
unsigned int n = (W*H);
std::cout << (n = ((n / K) + !(!(n % K)))) << " ";
std::cout << (n = (n*P)) << std::endl;
std::cout << ((M-n > 0) ? "YES" : "NO") << std::endl;
std::cout << std::setprecision(4) << (float(n) / T) << std::endl;
return 0;
}
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure NOD_NOK(a,b:integer; var NOD,NOK:integer);
begin
(var p,var q):=(a,b);
while q>0 do (p,q):=(q,p mod q);
NOD:=p; NOK:=a*b div NOD
end;
begin
var a,b,c,d:integer; Read(a,b);
NOD_NOK(a,b,c,d);
Writeln('НОД=',c,', НОК=',d)
end.
<u>Пример</u>
138 42
НОД=6, НОК=966