Программа на паскаль, которая находит числа у которых сумма цифр трехзначного числа кратна 7, а само число также делится на 7

Программа на паскаль, которая находит числа у которых сумма цифр трехзначного числа кратна 7, а само число также делится на 7


Следующая программа Паскаль на тему "Цикл с параметром" находит числа у которых сумма цифр трехзначного числа кратна 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.

Дата: 2013-09-05 18:37:29   Просмотров: 18818

Теги: Паскаль Pascal исходники исходник FOR циклы