35

1. Дано натуральное число…

vetal77 22 февраля 2023

1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми жецифрами.2. Найти все двузначные числа, сумма квадратов которых делится на 17. Все это нужно сделать в программе Паскаль, но КАК?!

категория: информатика

93

1. uses crt; const m=8; var n,i,b,c,p,k: integer; a: array[1… m] of integer; beginreadln (n); b: =n; k: =1; repeatc: =b mod 10; a[k]: =c; b: =b div 10; inc (k); until b=0; repeatp: =0; for i: =1 to k-1 doif a[i]

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...