Следующая программа Паскаль на тему "Цикл с параметром" находит числа у которых сумма цифр трехзначного числа кратна 7, а само число также делится на 7. Программа тоже довольно простая, но пояснительных комментариев нет. У данной программы есть небольшая схожесть с предыдущей.
Исходный код задачи на паскаль:
Var a,b,c,d,i,s:integer;
Begin
For i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 10;
c:=i mod 100;
d:=c div 10;
s:=a+b+d;
if (s mod 7=0) and (i mod 7=0) then
write(i,' ');
end;
End.
Исправленное решение задачи от пользователя Антон:
Var a,b,c,d,i,s:integer;
Begin
For i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 10;
c:=i mod 100;
d:=c div 10;
s:=a+b+d;
if (s/7=1) and (i mod 7=0) then
write(i,' ');
end;
End.
Если возникнут вопросы по поводу задачи и Вы напишите их в комментариях или с помощью личных сообщений, то я постараюсь дать на них ответы.
Скачать исходник: pas13for.pas
Кстати, если Вы хотите купить туфли для танцев, то зайдите на сайт danceshop.ru.