Цикл for будет повторяться 6 раз, значит программа на выходе выдаст 72
890*890=792100 пикселей
4 Кб = 4096 байт = 32768 бит
32768/792100=0,04 бита на пиксели
0,04^2 = 1
вроде так
Var a,s,k:integer;beginwrite('введите число: ');readln(a);while a<>0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln('сумма цифр равна ',s);end.
// PascalABC.NET
var
y,x,n:real;
begin
write('Введите n: ');
readln(n);
while (x <= n) do begin
writeln('Y = ', sin(x)*cos(x));
x:=x+0.1;
end;
end.
Проверка:
Введите n: 1
Y = 0
Y = 0.0993346653975306
Y = 0.194709171154325
Y = 0.282321236697518
Y = 0.358678045449761
Y = 0.420735492403948
Y = 0.466019542983613
Y = 0.49272486499423
Y = 0.499786801520753
Y = 0.486923815439098
Y = 0.454648713412841