Денис Зайцев
ЕП
Елена Панченко
х +х+25 = 99
2х=74
х=37
37+25=62
1: 37
2: 62
примерно так, а можно и так:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b: integer;
begin
a:=0;
repeat
inc(a);
b:=a+a+25;
until b=99;
showmessage('дочке '+inttostr(a)+'; мамке '+inttostr(a+25)+';');
end;
end.
Нафиг думать - пусть комп считает:)