В 1) должно быть var a,b:integer;
//PascalABC.Net 3.1.0.1200
var
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := x * x * x + 3;
end;
begin
write('Введите промежуток и шаг ([a,b] h) ');
readln(x0, xk, dx);
x := x0;
writeln(' x ':10, ' | ', ' f(x) ':10);
repeat
writeln(x:10:3, ' | ', f(x):10:3);
x := x + dx;
until x > xk;
end.
→ i=9 бит (кодировка каждого цвета 9ю битами).
340*560=190400 пикселей всего в изображении.
190400*9=1713600 бит на всё изображение.
1713600/8=214200 байт
214200/1024=209,1796875 Кб
#include <iostream>
int main()
{
int n;
std::cin>>n;
for(int i = 1; i<=30;i++)
{
if(i%n==0)
std::cout<<i<<"\n";
}
}