Program Summa;
var s,i,n:integer;
begin
write('Введите n:' );
readln(n);
s:=0;
for i:=1 to n do
if (i mod 2)<>0 then s:=s+i;
writeln;
writeln('Сумма нечётных чисел равна:',s);
readln; {для паузы}
end.
1) 640 × 350 =224000 пикселей в данном изображении
2) N = 2^i
16 = 2^i
i = 4 бит - глубина кодирования одного пикселя изображения
3) 4 бита × 224000 = 896000 бит = 112000 байт = 109,375 Кбайт занимает изображение в видеопамяти ПК
V=331+0.6t=331+0.6*37.4=331+22.44=353.44 м/с
Var a,b,c,d,N:integer;
begin
Readln(N);
a:=N div 1000;
b:=(N div 100) mod 10;
c:=(N div 10) mod 10;
d:=N mod 10;
N:=a-b-c-d;
Writeln(N);
end.
2000 кб= 2 048 000б
2 048 000б ÷ 1024000 б/с= 2 сек (сек сокращяются)