Program mas;var i,k,sum:integer; a:array [1..1000] of integer;beginfor i:=1 to 1000 dobegin;readln(a[i]);if a[i]=0 then break;end;k:=0;sum:=0;for i:=1 to 1000 dobegin;sum:=sum+a[i];if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]<>0) thenk:=k+1;end;writeln('summa= ',sum);writeln('kolichestvo=',k);readln;end.
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>
1875 кбайт * 1024 * 8 = 15 360 000 бит
800 * 600 * (ln(256)/ln(2)) = 3840000 бит
15360000 / 3840000 = 4 страницы
16 цветов.
256x1024 байт = 256x1024x8бит = 2097152
1024x512 = 524288
2097152/524288 = 4 бита. Память,для 1 пикселя.
2 в 4 степени - 16.
1.6 раз
2.1 раз
3.0 раз
4.1 раз
5.7 раз
6.0 раз