Исходник программы, который находит среди двухзначных чисел те, сумма квадратов цифр которых делится на 13

Исходник программы, который находит среди двухзначных чисел те, сумма квадратов цифр которых делится на 13

Привет! Итак, продолжаю выкладывать тематические исходники Pascal. Сегодня я выкладываю программу, которая находит среди двухзначных чисел те, сумма квадратов цифр которых делится на 13 и выводит их на экран. Это очень простая программа, поэтому объяснять её я не буду. В исходном коде есть подробные комментарии, поэтому, я думаю, разберетесь. Если возникнут вопросы, то задайте их в комментариях.

Исходный код программы Паскаль:

var i,a,b,c:integer;        //Описание переменных
Begin //Начало программы
For i := 10 to 99 do //Цикл с параметром (все двузначные числа)
begin
a:=i div 10; //Целочисленное деление на 10
b:=i mod 10; //Нахождение остатка
c:= a*a+b*b; //Сумма квадратов
if c mod 13=0 then //Проверка делимости
write(i); //Вывод, если нужное
end
End. //Конец программы


Скачать программу: pas5for.pas

P.S. Задание может звучать и по-другому, например: Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13. Вместо 13 могут быть и другие значения, но это можно легко исправит, изменив условие в операторе IF.

P.S. Если Вас интересует печать журналов, то Вы можете прочитать на сайте neoprint.ua.
Автор: Zed от 2013-09-05 17:52:04   Просмотров: 10300

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