Задать вопрос
3 июня, 09:03

Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m.

+4
Ответы (1)
  1. 3 июня, 11:21
    0
    begin s1:=copy (s, 1, pos (' ', s) - 1) ; {копируем первое слово до пробела} for i:=pos (' ', s) + 1 to length (s) do{смотрим строку дальше} if (copy (s, i, length (s1)) = s1) {если набор символов совпадает с этим словом} and (s[i-1]=' ') {и перед ним пробел} and ((s[i+length (s1) ]=' ') {и за ним пробел} or (i+length (s1) - 1=length (s))) then{или это последнее слово} begin k:=1; {фиксируем совпадение} s2:=s1; {запоминаем слово} write ('Одинаковые слова ', s2) ; {выводим на экран} readln; exit; {выходим из программы, нужно только 1 пару} end; delete (s, 1, pos (' ', s)) ; {удаляем первое слово, следующее первое} end; if k=0 then write ('Нет двух одинаковых слов') ; readln end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы