Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.
128×200=25600 Пикселей
каждый Пикселей обусловлен 16 бит информации
25600×16bit=25600×2b=51200b либо 51.2 килобайт. либо 50 кибибайта
Очень просто
запускаете двое часов одновременно, через три мин. переворачиваете часы на три минуты, через 6 мин. от начала еще раз переворачиваете их, когда закончится песок в часах на 8 мин, переворачиваете часы на три минуты, они как раз отсчитают две минуты так как на теперь уже нижней стороне оставалась минута до 9 минут, а на другой стороне 3-1=2минуты, 8+2=10.
#include <iostream>
#include <cmath>;
using namespace std;
int main() {
double a,b,k,B,Y;
cout << "a,b,k: " << endl;
cin >> a >> b >> k;
B=((a-b)/k); B*=B;
Y=B*B*B-sqrt(abs(B-k));
cout << "B= " << B << " Y=" << Y << endl;
return 0;
}
<span>Windows,Macintosh,Linux, DOS .</span>