Задание:
Пожалуйста, помогите решить задачи по информатике (паскаль): 1. Ввести два числа. Будет ли их сумма меньше 40? 2. Даны 20 пар чисел. В скольких парах первое число больше второго?
Решение:
1) var a, b: integer; begin read (a, b); if a+b<40 then write ('YES') else write ('NO'); end.2) var i, a, b, k: integer; begin for i: =1 to 20 do begin read (a, b); if a>b then inc (k); end; writeln (k); end.
Знаете другой ответ?