Для нахождения всех трехзначных чисел, сумма первой и последней цифр которых равна 7, можно написать следующий код на языке Pascal:
program FindNumbers; var number, firstDigit, lastDigit, sum: integer; begin for number := 100 to 999 do begin firstDigit := number div 100; lastDigit := number mod 10; sum := firstDigit + lastDigit; if sum = 7 then writeln(number); end; end.
Для нахождения всех трехзначных чисел, сумма первой и последней цифр которых равна 7, можно написать следующий код на языке Pascal:
program FindNumbers;var
number, firstDigit, lastDigit, sum: integer;
begin
for number := 100 to 999 do
begin
firstDigit := number div 100;
lastDigit := number mod 10;
sum := firstDigit + lastDigit;
if sum = 7 then
writeln(number);
end;
end.
При выполнении данной программы будут выведены все трехзначные числа, удовлетворяющие условию, а именно: 106, 115, 124, 133, 142, 151, 160, 169, 205, 214, 223, 232, 241, 250, 259, 304, 313, 322, 331, 340, 349, 358, 367, 376, 385, 394, 403, 412, 421, 430, 439, 448, 457, 466, 475, 484, 493, 502, 511, 520, 529, 538, 547, 556, 565, 574, 583, 592, 601, 610, 619, 628, 637, 646, 655, 664, 673, 682, 691, 700, 709, 718, 727, 736, 745, 754, 763, 772, 781, 790, 799, 808, 817, 826, 835, 844, 853, 862, 871, 880, 889, 898, 907, 916, 925, 934, 943, 952, 961, 970, 979, 988, 997.