iglezz, понял
iglezz,
Чот не могу отправить тебе в личку смс.
Извиняюсь а где можно тестировать ети примери, есть какаянить среда?
Скрытый текст
Uses crt;
Var
a,b,v,t,u,i : Integer;
begin
Writeln ('Введите первую пару чисел:');
Write ('Первое число:');
Readln (a);
Write ('Второе число:');
Readln (b);
v:=a+b;
Writeln ('Введите вторую пару чисел:');
Write ('Первое число:');
Readln (t);
Write ('Второе число:');
Readln (u);
i:=t+u;
if (v=i) then Writeln ('Они равны.');
if (v>i) then Writeln ('Сумма первой пары чисел больше суммы второй.');
if (v<i) then Writeln ('Сумма второй пары чисел больше суммы второй.');
end.
чтобы сразу наглядно видить результат?
