Привет! Итак, продолжаю выкладывать тематические исходники 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.