ДВЕ ЗАДАЧИ В ОДНОЙ
const N=10;
var
a:Array[1..N] of integer;
i,k,sum,c,b:integer;
begin
Randomize;
k:=0;
sum:=0;
for i:=1 to N do begin
a[i]:=random(61);
if a[i]>30 then k:=k+1;
if a[i]<30 then sum:=sum+a[i];
write(a[i],' ');
end;
writeln;
writeln(k,' чисел превышает 30');
writeln('сумма чисел = ',sum);
writeln;writeln;
writeln('введите число a');
readln(c);
writeln('введите число b (b должно быть больше a)');
readln(b);
for i :=c to b do
write(i,' ');
readln;
end.
Колонки, наушники и микрофоны
Современный компьютер невозможно представить без звуковой карты, предназначенной для вывода качественного звука. Чтобы услышать звук, к ее выходу нужно подключить какое-либо устройство, которое его воспроизводить.
Обычно звуковая карта имеет, как минимум, два звуковых выхода: на наушники и линейный.
К выходу для наушников присоединяют наушники (головные телефоны). Это могут быть как бытовые, так и профессиональные наушники, исходя из индивидуальных потребностей пользователя. Неплохие модели наушников предлагают компании Sony и Koss.
Однако чаще возникает потребность выводить звук через внешние динамики. Одно время достаточно популярными были дешевые акустические системы, которые называли мультимедийными. Они подключались к линейному выходу звуковой карты и звучали не намного лучше, чем системный динамик. Для восприятия музыки или звуковой дорожки фильмов такие колонки были непригодны.
В последние годы выпускается достаточно много моделей компьютерных колонок со встроенными усилителями, которые довольно качественно воспроизводят звук. Часто такие колонки бывают двух– или трехполосными. Кроме того, они являются экранированными, поэтому их можно ставить около компьютерного монитора.
Begin
write('Введите день') ; Readln(d);
write('Введите месяц'); Readln(m);
if (m = 2) and (d=28) then writeln('День - 1',' Месяц - 3'); if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then if (d>1) and (d<31) then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else if d=31 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end; if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) they if d<30 then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else d=30 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;
readln;
end.
НЕДОРАБОТАНА