никак не могу разобраться (
Составить блок-схему вычисления значения величины С, определяемое по формулам: С=A+B, если A<=B и C=A-B, если A>B. Составить блок схему к задаче: автобусный билет считают счастливым, если сумма трех первых цифр билета равна сумме трех последних цифр. Требуется составить блок-схему алгоритма определения билета, имеющего счастливый номер.
Под отбора понимают порядок отбора единиц из генеральной совокупности. Различают два отбора: повторный и бесповторный. При повторном отборе каждая отобранная в случайном порядке единица после ее обследования возвращается в генеральную совокупность и при последующем отборе может снова попасть в выборку. Этот отбора построен по схеме «возвращенного шара». При таком отбора вероятность попасть в выборку для каждой единицы генеральной совокупности не меняется независимо от числа отбираемых единиц. При бесповторном отборе каждая единица, отобранная в случайном порядке, после ее обследования в генеральную совокупность не возвращается. Этот отбора построен по схеме «невозвращенного шара». Вероятность попасть в выборку для каждой единицы генеральной совокупности увеличивается по мере производства отбора
ответ:Program z1;
var k : integer;
begin
writeln('Введіть номер місяця');
readln(k);
case k 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; { case }
case k of 1,2,12: writeln('зима');
3,4,5: writeln('весна');
6,7,8: writeln('літо');
9,10,11: writeln('осінь');
else writeln('такого місяця немає');
end; { case }
readln end.
Объяснение: