Перечисли все имеющиеся действия
Не совсем понял смысл, но вот:
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, либо числа не кончатся
Корень раве аб или бс в квадрате.переменные описаны целым типом данных.
1)Cin>>a
2)a/=10
3)b=a%10
4)c=2%10
<span>5)cout<<(a/10+b+c)ит</span>
Program Program1;
var arr: array[1..3] of real;
i, z, h: integer;
procedure swap(var x, y: real);
var t: real;
begin t := x; x := y; y := t
end;
begin
writeln('Введите три числа:');
for i := 1 to 3 do read(arr[i]);
for h := 1 to 3 - 1 do
for z := 1 to 3 - h do
if arr[z] > arr[z + 1] then
swap(arr[z], arr[z + 1]);
for i := 1 to 3 do write(arr[i], ' ');
end.