Составьте программу на паскале, которая вводит 2 целых числа m и n и печатает все целые числа между m и n, делящиеся на 7, включая и сами эти числа. замечание: программа должна учитывать, что заранее не известно, какое из чисел m или n больше другого.
122
376
Ответы на вопрос:
var i,n,k,f: integer;
begin
writeln('vvedite n: '); readln(n);
for i: =1 to n do
begin
k: =i; f: =0;
while (k< > 0) do
begin
if (k mod 10> 0)and(i mod (k mod 10)> 0) then f: =1;
k: =k div 10;
end;
if (f=0)and(i mod 10> 0) then write(i,' ');
end;
end.
Популярно: Информатика
-
krasatulea8323.03.2022 00:48
-
кармини26.05.2023 10:51
-
EnemySSS07.05.2023 13:19
-
anna6pie16.03.2023 11:56
-
арсен12801.05.2023 01:59
-
matyushin0602.05.2022 15:25
-
BaVeRSB23.02.2022 00:43
-
KatyaTishkina05.08.2021 06:47
-
mspak0213.12.2021 17:08
-
SofaI26.05.2023 05:06