Написать программу, которая определяет значение целочисленной переменной a, после выполнения фрагмента алгоритма: a: =247; в: =(а*div 100) * 10-9 а: =(10*b-a) mod 10;

Как на счет program sk; var a,b: integer; begin a: =247; b: =(a div 100) * 10-9; a: =(10*b-a) mod 10; writeln('a= ',a); end.

Var   i,n: integer;   a: array of integer; begin setlength(a,10); write('исходный массив: '); for i: =0 to 9 do   begin   a[i]: =random(10);   write(a[i],' ');   end; writeln; write('преобразованный массив: '); for i: =0 to 9 do   begin   if not((i mod 2=0) and (a[i] mod 2=0)) then     begin     a[n]: =a[i];     n: =n+1;     end;   end; setlength(a,n); for i: =0 to n-1 do   write(a[i],' '); end.

Насчет заморозить пару бутылок - мысль интересная, но главное - не пропустить эффектный момент, когда их разорвет в морозилке! под вентилятором в жару можно заработать простуду. а вот понижение температуры за счет поглощения тепла в процессе испарения влаги - совершенно верно. здесь хороши все варианты: фонтан, мыть полы и не вытирать (в старину их просто мочили или поливали водой), развешивать мокрую ткань, принимать прохладный (холодный, если здоровье позволяет) душ или просто налить ванну холодной воды и оставить открытую дверь