Запишите на Паскале программу решающую задание №3

1) это сведения о чём то

2)обоняние , осязание, зрение , слух.

3) Блок питания

— Центральный процессор

— Внешняя видеокарта (ее разъем PCI, AGP, PCI-Express)

— Оперативная память

— Оптический DVD привод

— Трехдюймовый дисковод гибких дисков (FDD 3,5)

— Жесткий диск (винчестер)

— Материнская плата (фиолетовая)

4) Основными устройствами вывода являются монитор, принтер, плоттер акустические колонки, наушники.

5) Backspace

6) PageDown

7) это то что содержит и хранит информацию

8) клавиатура

9) Сканер

10) клавиатуре, Диска, принтере или на бумагу

Объяснение:

Var a,d,count,i:integer;
function CountDay(a:integer):integer;
begin
if (a>=1) then countday:=31;
if (a>=2) then countday:=28;
if (a>=3) then countday:=31;
if (a>=4) then countday:=30;
if (a>=5) then countday:=31;
if (a>=6) then countday:=30;
if (a>=7) then countday:=31;
if (a>=8) then countday:=31;
if (a>=9) then countday:=30;
if (a>=10) then countday:=31;
if (a>=11) then countday:=30;
if (a>=12) then countday:=31;
end;
begin
count:=0;
write('Введите День: ');
readln(d);
write('Введите Месяц: ');
readln(a);
if (a<=0)or(a>12)or(d<=0)or(d>countday(a)) then
writeln('Ошшибка в данных! ')
else
begin
for i:=a to 12 do
count:=count+countday(i);
count:=count-d;
writeln('До нового года осталось ',count,' дней');
end;
end.