Program chisla;
uses crt;
var a,b,n,k: integer;
begin
b:=0;
Writeln('Нахождение чисел кратным 2-м');
Writeln('Введите интервал чисел: ');
Readln(n,k);
for a:=n to k do
if (a mod 2=0) then
begin
write(a,' ');
b:=b+1;
end;
end.
ОБЬЕСНЯЮ, НАРИСУЙ ОКНО, В ОКНЕ ДЕРЕВО С БУЛИНКАМИ И ЦЫФРАМИ, КАК ЭТО ЗДЕЛАЕШ РАЗКРАСИТЬ МОЖНО В ЯРКИЕ ЦВЕТА.....
А) 32/8=4, тоесть 4 байта
б) 8388608 / 8 = 1048576 байт
8388608 / 1024 = 1024 КБ килобайт
(8388608 / 1024) /1024 = 1 мегабайт
в) <span>1.5 * 1024 = </span>1536 килобайт
1.5 * 1024*1024=1572864 байт
1.5 * 1024*1024*8=12582912 бит
нет
например число 546
если средняя цифра то это 4 а крайние это 5 и 6 4<30~~~
если среднее арифм. то это 5+4+6/2 т.е. 15/2 = 7.5 и опять же 7.5<30
Var
t,v:integer;
Begin
Write('Введите температуру воздуха(°C): ');ReadLn(t);
if t > -20 then WriteLn('Дети идут в школу')
else if t<-25 then WriteLn('Дети в школу не идут')
else
Begin
Write('Введите скорость ветра(м/с): ');ReadLn(v);
if v>=7 then WriteLn('Занятия отменяются')
else WriteLn('Занятия не отменяются');
End
End.