program raf105;
var m: integer;
begin
write('Введите номер месяца: ');
readln(m);
case m of
12,1,2: writeln('Это зима');
3..5: writeln('Это весна');
6..8: writeln('Это лето');
9..11: writeln('Это осень');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
1.Андрей,старше Светы,также как Наташа или немного младше?
2.Один десятый класс,идёт на экскурсию в музей,а второй десятый класс идёт в театр или в филармонию.
3.На полке, в комнате Нади, стоят учебники и справочники,которые помогают ей понимать учебный материал.
4.Часть детей в классе- девочки,а ,остальные-мальчики,или же, в классе одинаковое количество девочек и мальчиков?
Глубина цвета изображения i=I/k, где I- информационный объем изображения (бит), k- количество точек изображения.
Количество точек найдем умножив разрешение сканера на размер изображения:
k=(256*4)*(512*4)= 1024*2048
i=(6*1024*1024*8)/(1024*2048)= 24 бит
Ответ: 24 бит
625Кбайт = 625*1024*8 = 5120000бит
5120000/128000=40 сек
Выведет 0. s=0. n=4. сразу выполнется условие (n>2) и программа выведет s тоесть 0