<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
procedure СредняяЦифра(Число: int64; var Цифра: integer);
begin
var СтроковоеПредставление := Число.ToString;
var ЧислоРазрядов := СтроковоеПредставление.Length;
var ПозицияЦифры := ЧислоРазрядов div 2 + 1;
Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit
end;
begin
var ЗаданноеЧисло: int64;
Read(ЗаданноеЧисло);
var ИскомаяЦифра: integer;
СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);
ИскомаяЦифра.Println
end.
<h2>Пример</h2><h2>123643523</h2><h2>4 </h2>
6.3)
7. 1)
8.-
9. 1)
10. 1)
A)принять документы, аттестат, заявление и прочее.
добавить фамилию в списки, для вступительных экзаменов.
задачи должна решать:
<span>1. Допускать ли абитуриентов до вступительных экзаменов, исходя из всей имеющейся информации об абитуриенте.
Б)--------------
В) </span>1) Запрос на создание бд кодировки и общие настройки.
2) Создание таблиц, полей и описание их характеристик (длина в символах тип данных и тд. Также создаются ключи и индексы для полей.
3) Создание связей между таблицами.
<span>4) Заполнение БД данными.</span>
1. ноги - убрать.
2. пищи - убрать.
3. месяце - убрать.
4. ледяной - убрать.
5. мою - убрать.
6. оранжевыми - убрать.
7. и развалины - убрать.
8. военным - убрать.
9. холодное - убрать.
10. поведения - убрать.
Uses crt;
var k,n:integer;
begin
clrscr;
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) then
begin
n:=k mod 7;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг);
5: writeln ('пятница');
6: writeln ('суббота');
0: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.
uses crt;
var k,n,d:integer;
begin
clrscr;
writeln ('Введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7)');
Readln (d);
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) and (d>=1) and (d<8) then
begin
n:=k mod 7 +d-1;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг');
5: writeln ('пятница');
6: writeln ('суббота');
0,7: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.