Var
n: integer;
begin
write('Введите номер месяца (1-12): ');
readln(n);
case n of
1: writeln('1 января - Новый год; 7 января - Рождество Христово');
2: writeln('23 февраля - День защитника Отечества');
3: writeln('8 марта - Международный женский день');
5:
begin
writeln('1 мая - Праздник Весны и Труда;');
writeln('9 мая - День победы советского народа в Великой Отечественной войне 1941-19545 годов')
end;
6: writeln('12 июня - День России');
11: writeln('4 ноября - День народного единства')
end
end.
Тестовое решение:
Введите номер месяца (1-12): 6
12 июня - День России
Var s:string;
i:integer;
begin
readln(s);
write(s[1] + s[3] + s[2]);
end;
1. Видимо 2 круга никак не пересекающихся друг с другом, один для чет другой для нечет
2. Предикат : все четные числа состоят из множества всех чисел минут множество всех нечетных чисел
Уровни наложения заставляют работать не напрямую с машиной, ограничивая язык, а с языком программирования, который содержит другой, более удобный язык, похожий на простой обычный, смысловой, логический, который сам объяснит за вас это машине, так как машина говорит лиш на одном.
вот в чём разница. Низкого уровня язык - это язык машины, но он прямой, как разговор с человеком, а не с переводчиком.
переводчик ведь тоже поправит предложения или полностью заменит их если это выражения языка.
поэтому в языках программирования доступно много всего, всё что захочет создатель
а)
var
p,d,h:real;
begin
readln(h);
p:=1200*9.8*h;
writeln(p);
end.
б)
var
m,h,r:real;
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
i,k:integer;
m,h,r,S:real;
begin
readln(k);
S:=0;
for i:=1 to k do
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
S:=S+m;
end;
writeln(S);
end.
