[29rufus]

1)Определить,делителем,каких чисел A,B,C является число K

2)Написать программу,которая бы по введенному номеру времени года(1-зима,2-весна,3-лето,4-осень) выдавала соответствующие этому времени года месяцы,количество дней в каждом из месяцев

если че пишите в асю

[ApxaHGe1]

2

Код:

var
  s:integer;
....
....
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
s:=StrToInt(Edit1.Text );
if (s=0) or (s>4) then
begin
ShowMessage ('Only Number 1..4!');
exit;
end
else
case s of
1 :begin
Memo1.Clear;
Memo1.Lines.Add('Зима');
Memo1.Lines.Add('');
Memo1.Lines.Add('Январь');
Memo1.Lines.Add('Февраль');
Memo1.Lines.Add('Декабрь');
end;
2: begin
Memo1.Clear;
Memo1.Lines.Add('Весна');
Memo1.Lines.Add('');
Memo1.Lines.Add('Май');
Memo1.Lines.Add('Март');
Memo1.Lines.Add('Апрель');
end;
3:begin
Memo1.Clear;
Memo1.Lines.Add('Лето');
Memo1.Lines.Add('');
Memo1.Lines.Add('Июнь');
Memo1.Lines.Add('Июль');
Memo1.Lines.Add('Август');
end;
4:begin
Memo1.Clear;
Memo1.Lines.Add('Осень');
Memo1.Lines.Add('');
Memo1.Lines.Add('Сентябрь');
Memo1.Lines.Add('Октябрь');
Memo1.Lines.Add('Ноябрь');
end;
end;
end;

end.

[lmikle]

А самому подумать?

Первая задача.
Как определить, являетс ли число делителем другого? Разделить и посмотреть - делится нацело или нет.

Код:

function IsDiv(ANumber, ADiv : Integer) : Boolean;
begin
  Result := (ANumber mod ADiv) = 0; // Остаток от деления = 0.
end;

Дальше просто берешь из интерфейса числа и проверяешь через эту функцию.


Вторая задача.
Ну тут вообще все просто. Можно даже обойтись без жутких кейсов.
Номера месяцев, соотв. номкру сезона:

(N-1) * 3
(N-1) * 3 + 1
(N-1) * 3 + 2
И 0 меняем на 12.

Теперь о кол-ве дней.
есть функция - DaysInAMonth - возвращает кол-во дней в месяце, но требует указания года. Для получения года можно, например, использовать такую конструкцию: YearOf(Date).

Ну как из этого составить вычисление, надеюсь, сам разберешься.