111
7
7
c3 системы вычисления
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
A)принять документы, аттестат, заявление и прочее.
добавить фамилию в списки, для вступительных экзаменов.
задачи должна решать:
<span>1. Допускать ли абитуриентов до вступительных экзаменов, исходя из всей имеющейся информации об абитуриенте.
Б)--------------
В) </span>1) Запрос на создание бд кодировки и общие настройки.
2) Создание таблиц, полей и описание их характеристик (длина в символах тип данных и тд. Также создаются ключи и индексы для полей.
3) Создание связей между таблицами.
<span>4) Заполнение БД данными.</span>
Var A,S:real;
n:integer;
Begin
Write('n = ');
Read(n);
a:=10;
For n:= 1 to n do
Begin
a:=a*1.1;
S:=S+a
End;
WriteLn(S)
End.