Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v+1;
end
else if i mod 2<>0 then v:=v+1;
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.
Все работает я проверил
Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
Program Summa;
Uses Crt;
var i,s:integer;
begin
clrscr;
i:=10;s:=0;
write('Двухзначные числа кратные 5: ');
while(i<=50) do
begin
write(i,' ');
s:=s+i;
i:=i+5;
end;
writeln;
writeln('Сумма 10 двухзначных чисел кратных 5: ',s);
readkey;
end.
N=2^i, где N - количество цветов в палитре, i - глубина цвета
32=2^i, поэтому i=5 бит, точнее столько бит надо, чтобы закодировать 1 точку
всего точек: 800*360=288000
Объем памяти - 288000*5=1440000 бит / 8 бит = 180000 байт
Дорогой Дедушка Мороз,
В этом году я вёл себя хорошо и старался не (инверсия) писать низкокачественный код (коньюнкция). Я бы очень хотел найти под ёлкой все 16 томов SAO на японском или (<span>дизъюнкция)</span> флешку с нормальным GUI для Java, ибо писать в блокноте бесит. Помни, я всё ещё тебя верю.
Глеб, 17 годиков.
