Если база данных состоит из одной таблицы, используют ли процедуру “схема данных”?

выберите один или несколько ответов:

a. при необходимости

b. нет

c. да

​

Понеділок
1Вчимося чаклувати
2Вчимося літати
3Вчимося вибирати правильні чаклунські палички
4Вчимося за до магії прибирати у кімнаті
Вівторок
1Вчимося перетворюватися на супер героїв
2Вчимося магії
3Вчимося літати
4Вчимося перетворюватися на супер героїв
Середа
1Подоружуємо країнами
2Подорожуємо країнами
3Вчимося перетворюватися на супер героїв
4Вчимося літати на мітлах
Четвер
1Вчимося літати на мітлах
2Вчимося з до магії їсти
3Вчимося прибирати у кімнатах за до магії
4Вчимося бути добрими
П*ятнця
1Вчимося вибирати правильні чаклунські палички
2Вчимося перетворюватися на супер героїв
3Питаємо все Гаррі Потера
4Вчимося літати на мітлах

Найкращий

Uses crt;
var dd,mm,gg:integer;
begin
readln(dd,mm,gg);
case dd of
1..5: writeln('начало');
6..14: writeln('первая половина');
15: writeln('середина');
16..25: writeln('вторая половина');
26..31: writeln('конец');
end;
case mm of
1: writeln('января');
2: writeln('февраля');
3: writeln('марта');
4: writeln('апреля');
5: writeln('мая');
6: writeln('июня');
7: writeln('июля');
8: writeln('августа');
9: writeln('сентября');
10: writeln('октября');
11: writeln('ноября');
12: writeln('декабря');
end;
if gg mod 4=0 then writeln ('високосный') else writeln('не високосный');
end.

---

var a:integer;
begin
readln(a);
writeln(a mod 10,a);
end.