будьте, пожалуйста, внимательней. Вчера вечером была эта же задача.
znanija.com/task/1112711
бег - бог - рог - рок - рак - мак - маг - шаг
море-горе-гора-пора-пара-папа-сапа-саша-суша
миг-маг-мак-пак-пек-век;
бант-бунт-бурт-борт-корт-кора-коса
шар-шаг-лаг-луг-луб-куб
муха - муpа - туpа - таpа - каpа - каpе - кафе - кафp - каюp - каюк - кpюк - уpюк - уpок - сpок - сток - стон - слон
вместо хищных зверей можно добавить травоядных зверей
Тут не совсем понятно в чем конкретно это все делать, но я так понимаю, что в пеинте. Если так, то:
1) Выбрать нужный цвет в палитре и нажать на него правой кнопкой мыши
2) Выбрать нужный цвет в палитре и нажать на него левой кнопкой мыши
3) Выбрать в панели "Прямоугольник" и нарисовать фигуру
4) Выбрать в панели "Прямоугольник" и, зажав клавишу "Shift" нарисовать фигуру
5) Выбрать в панели "Овал" и нарисовать фигуру
6) Выбрать в панели "Овал" и, зажав клавишу "Shift" нарисовать фигуру
Если не трудно, пометь ответ как лучший. Удачи
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся
Стереть наверно!
Если нет то что то другая кнопка.
