1. Если будет южный ветер или не будет северного ветра, то будет дождливо и не будет холодно.
2. Если ветра южного не будет, то не будет пасмурно или пойдет дождь.
3. Если же все-таки будет южный ветер, то будет пасмурно, но дождя не будет.
4. Если не будет северного ветра или будет холодно, то задует южный ветер и будет пасмурно.
из 4. или северный ветер или южный, если задует северный ветер и будет холодно, то задует и южный ветер, а если задует южный то будет пасмурно.
из 3. известно, что если будет южный ветер, то будет пасмурно, но дождя не будет,
однако, из 1. видно, что если будет южный ветер, то будет дождливо и не будет холодно.
из 2. если не будет южного ветра (т.е. будет северный), то не будет пасмурно или пойдет дождь
var
Numbers: array [1..6] of integer;
x, summ12, summ56, countN, r : integer;
begin
for var i := 100000 to 999999 do begin
// берем каждое число от 100000 до 999999
x := i;
for var j := 1 to 6 do begin
// mod - получаем остаток от деления X на 10
// например для 12345.6 остаток от деления - 6
Numbers[7 - j] := x mod 10;
//записываем цифры в обратном порядке (справа налево), поэтому [7 - j]
// div - получаем целую часть числа от деления X на 10
// например, для 1234.5 целая часть - 12345
x := x div 10;
// теперь X будет на 1 разряд меньше (например X = 12345)
// делим 6 раз X на 10
// например (1) 12345.[6] => (2) 1234.[5] => (3) 123.[4] => (4) 12.[3] => (5) 1.[2] = > 0.[1]
end;
// считаем суммы двух первых и последних
summ12 := Numbers[1] + Numbers[2];
summ56 := Numbers[5] + Numbers[6];
// и разницу между суммами
r := summ12 - summ56;
// разница может быть 5 или -5
// abs() - возвращает модуль числа
// приводим разницу в положительное число
// если разница не более 5, то число счастливое
if(abs(r) <= 5) then countN := countN + 1;
end;
writeln('Количество счастливых чисел: ', countN);
end.
Объяснение:
для PascalABC
это задача под номером 2
Получив цифры с
x mod y
x div y
можно (для других задач) изменить расчет суммы и условие счета количества
Локальный диск C;
Дисковод СD\DVD-Rom;
Другие устройства.