Регистрация
pandaokia
03.12.2020 17:44
Информатика
Есть ответ 👍

Вывести все четырехзначные числа от а до в (от 1000 до 9999), содержащие разные цифры

252
341
Посмотреть ответы 1

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

tzar1
tzar1
4,8(99 оценок)
Procedure tform1.button1click(sender: tobject); var   i, k: integer;   s: string; begin   k : = 0;   i : = 1;   while k < > 8 do   begin       if (i mod 7 = 0) then       begin           s : = s + inttostr(i) + #13;           inc(k);       end;       inc(i);   end;   showmessage(s); end;

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