(см. объяснение)
Объяснение:
Возможный вариант решения задачи на Pascal ABC NET:
begin
var a: integer := ReadInteger('Сколько задач решили Петя и Валера >>');
var b: integer := ReadInteger('Сколько задач решил Валера >>');
if((a-b)>b) then 'Петя решил на '.Concat((a-2*b).ToString).Concat(' задач больше, чем Валера.').Println
else 'Валера решил на '.Concat((2*b-a).ToString).Concat(' задач больше, чем Петя.').Println
end.
(см. объяснение)
Объяснение:
Возможный вариант решения задачи на Pascal ABC NET:
begin
var a: integer := ReadInteger('Сколько задач решили Петя и Валера >>');
var b: integer := ReadInteger('Сколько задач решил Валера >>');
if((a-b)>b) then 'Петя решил на '.Concat((a-2*b).ToString).Concat(' задач больше, чем Валера.').Println
else 'Валера решил на '.Concat((2*b-a).ToString).Concat(' задач больше, чем Петя.').Println
end.