Главная

Контакты

Случайная статья

• Автоматизация
• Антропология
• Археология
• Архитектура
• Биология
• Ботаника
• Бухгалтерия
• Военная наука
• Генетика
• География
• Геология
• Демография
• Деревообработка
• Журналистика
• Зоология
• Изобретательство
• Информатика
• Искусство
• История
• Кинематография
• Компьютеризация
• Косметика
• Кулинария
• Культура
• Лексикология
• Лингвистика
• Литература
• Логика
• Маркетинг
• Математика
• Материаловедение
• Медицина
• Менеджмент
• Металлургия
• Метрология
• Механика
• Музыка
• Науковедение
• Образование
• Охрана Труда
• Педагогика
• Полиграфия
• Политология
• Право
• Предпринимательство
• Приборостроение
• Программирование
• Производство
• Промышленность
• Психология
• Радиосвязь
• Религия
• Риторика
• Социология
• Спорт
• Стандартизация
• Статистика
• Строительство
• Технологии
• Торговля
• Транспорт
• Фармакология
• Физика
• Физиология
• Философия
• Финансы
• Химия
• Хозяйство
• Черчение
• Экология
• Экономика
• Электроника
• Электротехника
• Энергетика

ifi = 1703 then. ifx = y then. ifx > y then. ifx < y then. casey of. ify < x-100 then. ify > x-100 then. ifi = 1939 then. ifx < -2 then. if(x >= -2) and(x<=3) then. ifx > 3 then

ifi = 1703 then

Writeln('Поздравляю! Вы правы! Санкт-Пертербург был основан в 1703 году!')

else

Writeln('Вы ошиблись,Санкт-Пертербург был основан в 1703 году.');

end.

Билет 15

programbillet15;

varx,y:integer;

begin

Writeln('Введите 1-ое число ');

readln(x);

Writeln('Введите 2-ое число ');

readln(y);

ifx = y then

Writeln('Первое число равно второму');

ifx > y then

Writeln('Первое число больше второго');

ifx < y then

Writeln('Первое число меньше второго');

end.

Билет 16

programbillet16;

var

y:integer;

begin

Writeln('Введите число класса:');

Readln(y);

casey of

1..4:Writeln('Младший класс');

5..9:Writeln('Средний класс');

10..11:Writeln('Старший класс');

else

Writeln('Нет такого класса');

end;

end.

Билет 17

programbillet17;

varx,y:real;

begin

Writeln('Введите Ваш рост <См> и Ваш вес <Кг>, и нажмите <Enter>');

Readln(x,y);

Writeln('Ваш оптимальный вес: ',x - 100,' Кг');

ify < x-100 then

Writeln('Вам надо поправиться')

else

ify > x-100 then

Writeln('Вам надо похудеть')

else

Writeln('Ваш вес в норме');

end.

Билет 18

programbillet18;

vari:integer;

begin

writeln('В каком году началась Вторая Мировая война?');

writeln('Введите число и нажммите <enter>: ');

read(i);

Writeln();

ifi = 1939 then

Writeln('Поздравляю! Вы правы! Вторая Мировая война началась в 1939 году!')

else

Writeln('Вы ошиблись, Вторая Мировая война началась в 1939 году.');

end.

Билет 19

programbillet19;

var

x,y:real;

begin

Writeln('Введите x:');

Readln(x);

ifx < -2 then

begin

y:=x+1;

Writeln('Функция вычисляется по формуле y = x+1, и она равна: ',y);

end;

if(x >= -2) and(x<=3) then

begin

y:=sin(x-3);

Writeln('Функция вычисляется по формуле y = sin(x-3), и она равна: ',y);

end;

ifx > 3 then

begin

y:=1/x;

Writeln('Функция вычисляется по формуле y = 1/x, и она равна: ',y);

end;

end.

Билет 20

programbillet20;