Откройте свой Мир!

ПОнедельник:
1.Филасофия/ проф.каз
2.ЭРИ
3.Политология

Вторник:
1.Спец.Мат
2.Стандартизация/Социология
3.Физра

Среда:
1.Философия
2.Выш.мат
3.Осн.Экономики

Четверг:
1.ЭиТ
2.ЭРИ
3.Спец.Мат

Пятница:
1.Ос
2. ????????
3.Физра

Суббота:
1.Экономика
2.ЭиТ
3.Основа автоматики

oc
физ-ра        понедельник
история
 
тоэ
эрм             вторник
ос
 
культура
эрм                   среда
ос
 
каз-яз
тоэ                      четверг
история/ин-яз
 
тоэ
ин-яз                    пятница
эрм/культура
 
каз-яз
физ-ра                 суббота
ос

  18  АВГУСТА едим в ГОРЫ С НАЧОВКОЙ !!!!!!!!!!!!!!!!  кто ПОЕДИТ????????? пишите

че нужно с собой взять: поесть, выпить, закусить, че нибудь к чаю, хорошее настрение, денег на проезд, 1000 на всякий пожарный (если на выпивку скидывать будите)
встречаемся в 9.00 возле шараги, ждем всех до 9.30, потом едем воры.
кто едет, сообщите мне или Герману.
кого интерисует более подробная информация, оброщайтесь. 
ну вроде все, спасибо за внимание =)))

Оператор выбора CASE
Для целого числа К от 1 до 10 напечатать значение К римскими цифрами .

Program Case;
Uses
Crt;
Var
K:byte;
Begin
Clrscr;
Write(‘Введите К=’);
Readln(K);
Case K of
1:writeln(‘I’);
2:writeln(‘II’);
3:writeln(‘III’);
4:writeln(‘IV’);
5:writeln(‘V’);
6:writeln(‘VI’);
7:writeln(‘VII’);
8:writeln(‘VIII’);
9:writeln(‘IX’);
10:writeln(‘X’);
End;
Readkey;
End.

Условный оператор IF
Пролезит ли стол черес окно ?

Program Stol
Uses
Crt;
Var
X1,x2,y1,y2,z:real;
Begin
Clrser;
Writeln(‘Размер окна:’);
Writeln(‘Ширина окна:’);
Readln(x1);
Writeln(‘Высота окна:’);
Readln(y1);
Writeln(‘Ширина стола:’);
Readln(x2);
Writeln(‘Высота стола:’);
Readln(y2);
If y1>x1 then
Begin
Z:=x1;x1:=y1;y1:=z;
End;
If y2>x2 then
Begin
Z:=x2;x2:=y2;y2:=Z;
End;
If x1>x2 and y1>y2 then
Writeln(‘Стол пройдет в окно!’);
Else writeln(‘Стол не пройдет в окно!’);
Readkey;
End.

Линейный
Найти сумму 2 переменных.

Program lineinii
Uses
Crt;
Var
A,b,z:integer;
Begin
Clrser;
Writeln(‘Ввод данных’);
Readln(a,b);
Z:=a+b;
Writeln(‘Вывод результатов=’,z:1);
Readkey;
End.

снизу суббота!!!!!!!!!!!!

так понедельник  вторник      среда        четверг      Пятница      Субота
     ФИЗ РА           КАЗЛИТ      НВП           Литра          Биолог      
     ИСТОРИЯ        ФИЗИКА      англ           НВП            КАЗ ЯЗ       НЕПОМНЮ!!!!помню что мы бухали!!
     МАТЕМ           КАЗ ЯЗ         ФИЗРА       физика        МАТЕМ