Не совсем понял смысл, но вот:
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, либо числа не кончатся
Var
n,i:integer;
s,a:real;
begin
writeln('Vvedite n:');
readln(n);
writeln('Vvedite chisla:');
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln('Srednee arifmeticheskoe =',s/n);
readln();
end.
Из 1 и 4 следует, что Рыбаков и Перлов - не повара
Из 1 и 5 следует, что они не могут быть одновременно врачом и учителем.
Из 1 и 6 следует, что они не могут быть одновременно врачом и водителем.
Из двух предыдущих выводов следует, что Рыбаков и Перлов - учитель и водитель (кто есть кто - не важно), а Шмаков и Немцов - врач и повар.
Допустим, Шмаков врач. Тогда согласно 7 он старше учителя и водителя, т.е. Рыбакова и Перлова, что противоречит 2. Значит, Шмаков не врач, а повар. В таком случае Немцов - врач.
Продолжительность занятия в минутах - 150 мин
В академических часах - 3,3 часа
