1. Изучите приведенную таблицу расхода электроэнергии домашними бытовыми приборами (стандартный набор) за один календарный месяц. ответьте на
вопросы.
і
DS
=BScsS851
30
1 количество дней в месяце:
2 перевод в кВт:
1000
3
Стандартный набор
Врезня потребленная
мощность
работы в Уолность за месяц кВт в месяц
(Вт)
день (часов) (Вт в месяц)
400
24
288000
288
600
3
$4000
54
400
3
36000
36
1070
0.3
16050
16.05
670
2
5 Холодильник
6 Компьютер
7 Телевизор
в Стиральная машина
Всё остальное (чайник
2 электрический. лампочки, утюг...)
1. Дополнительный комфорт
11 Кондиционер
2 Посудомоечная машина
13 Микроволновая печь
14 Зарядки для гаджетов
15 Итого:
40200
40.2
1700
0,75
38250
38.25
340
2
20400
20,4
400
6000
6
0,5
0.75
420
9450
508350
9.45
508,35

Microsoft Word - это текстовый редактор от компании Microsoft. Программа обычно входит в пакет офисных программ Microsoft Office, но может поставляться и отдельно. Является платной и стоит просто бешеных денег для организаций (около 19000руб, т.к. продается только в составе пакета Microsoft Office Pro), и больших денег для домашних пользователей (около 4000р), но никого это не смущает, все используют пиратские версии. Программа позволяет редактировать тексты любой сложности, вставлять в документы картинки, таблицы и прочее нестандартное содержимое. Аналогом Microsoft Word является бесплатный Writer из пакета LibreOffice и OpenOffice, который позволяет делать всё то же самое, только бесплатно, хотя и немного сложнее местами. Microsoft Word официально работает только на компьютерах с ОС Microsoft Windows и Apple OS X, хотя возможен и его запуск на ОС семейства Linux через Wine, но корректная работа программы не гарантируется. Microsoft Word является самым распространенным текстовым редактором в мире.

Первая программа:

Var
   A:integer;
   P:real;
Begin
P:=1;
For A:= 100 to 405 do
    if A mod 13 = 0 then P:=P*A;
WriteLn('P = ',P);
End.

Результат работы программы:
P = 8.85587927807922E+56

Вторая программа:

Var
   A:integer;
   P:real;
Begin
P:=1;
For A:= 11 to 36 do
    if A mod 2 = 0 then P:=P*A;
WriteLn('P = ',P);
End.

Результат работы программы:
P = 4.37068711644365E+17

Третья программа:

Var x:real;
Begin
WriteLn('y(x) = 5*x +6');
x:=1;
Repeat
WriteLn('y(',x:0:3,') = ',5*x+6);
x:=x+0.4
Until x>4;
End.

Результат работы программы:
y(1.400) = 13
y(1.800) = 15
y(2.200) = 17
y(2.600) = 19
y(3.000) = 21
y(3.400) = 23
y(3.800) = 25