Головна | Реєстрація | Вхід | RSS | Середа, 04.24.2024, 5:59 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Кількість днів у місяціПрограма для визначення кількості днів у місяці за введенням року та номеру місяця: program rik; var b,a,c: integer; label m; begin m: writeln ('vvedit rik'); readln (b); writeln ('vvedit misiats'); readln (a); case a of 1,3,5,7,8,10,12: c:=31; 4,6,9,11:c:=30; 2: if (b mod 4=0) then c:=29 else c:=28; else begin writeln ('takogo misiatsa ne isnye'); goto m end; end; writeln ('V ',b, ' v ',a,' =',c, ' dniv'); readln end. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |