составить Цикл с параметром…

Question

составить Цикл с параметром 1. Вывести на экран все четырехзначные числа, сумма двух старшихцифр которых равна сумме двух младших цифр.

Answer 1

57

wapos

13 марта 2023

Var a1, a2, q1, q2, i: integer; begin for i: =1000 to 9999 do begin a1: =i div 1000; a2: =i mod 1000 div 100; q1: =i mod 100 div 10; q2: =i mod 10; if (a1+a2 > q1+q2) then writeln (i); end; end. Только выполняться сие чудо будет секунд 30

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: