Добавил:
brawlherry@gmail.com Рыльский филиал МГТУ ГА. Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Практические / prakt7 / Кружокпопрограммированию

.pas
Скачиваний:
1
Добавлен:
29.03.2024
Размер:
656 б
Скачать
PROGRAM kryjok;
var sred:integer;
begin
Writeln ('Введите число первой среды: ');
read(sred);
Write('Январь ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>31;
sred:=sred-31;
Writeln;
Write('Февраль ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>29;
sred:=sred-29;
Writeln;
Write('Март ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>31;
sred:=sred-31;
Writeln;
Write('Апрель ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>30;
sred:=sred-30;
Writeln;
Write('Май ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>31;
sred:=sred-31;
END.