Регистрация
bogdanpavlovi
30.03.2023 15:30
Информатика
Есть ответ 👍

Конспект на тему "системы программирования и прикладное программное обеспечение"

130
210
Посмотреть ответы 1

Ответы на вопрос:

kokoko29
kokoko29
4,4(22 оценок)
K- номер элемента ряда; i - номер текущего элемента ряда; n - число кратное 5-ти; m - для проверки числа, является ли оно элементом ряда var       k,i: byte;         n, m: longint ; begin        readln(k) ;         n : = 0 ;         i : = 1 ; while i < k do begin        n : = n + 5 ;         m : = n;   while m > 0 do begin          if (m mod 10 < > 5) and (m mod 10 < > 0) then break;         m : = m div 10 ; end ;         if m = 0 then i : = i + 1 ; end ;         writeln(n) ; end;            

Популярно: Информатика