Program prog;
Uses crt;
var m: integer;
label l1;
Begin clrscr;
l1: write('Введите номер месяца = ');
readln(m);
case m of 1,3,5,7,8,10,12: writeln('31');
4,6,9,11: writeln('30');
2: writeln('28/29');
else
begin
writeln('Непривильный номер месяца');
writeln;
goto l1;
end;
end;
readln;
End.
//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8
110110110 = 100000000(2) + 10000000(2) + 100000(2) + 10000(2) + 100(2) + 10(2) = 2^8 + 2^7 + 2^5 + 2^4 + 2^2 + 2 = 256 + 128 + 32 + 16 + 4 + 2 = 438
решение во вложении, Вам нужна только первая страница
2 Мбайт
но могу ошибаться ((