Исходник, который суммирует i последних цифр числа

Исходник, который суммирует i последних цифр числа

Пример программы на Паскаль, задача которой сложить определённое количество последних цифр числа, введённого с клавиатуры, Выполняется это посредством цикла wile, изученного в уроках Паскаль №5 и №6 - Циклы. Пример программы на Паскаль включает в себя исходный код программы и подробные объяснительные комментарии к каждой строке.

Исходный код программы для подсчёта i последних цифр числа n:

 var n,i,sum:integer; //Описание переменных
begin //Начало программы
readln (n,i); //Считывание чисел
sum := 0; //Зануление переменной для хранения суммы
while (i > 0) do begin // Пока кол-во не равны нулю - цикл
sum := sum + (n mod 10); //Суммируем последие цифры
n := n div 10; //Отрезаем последнюю цифру
dec(i); //Уменьшение счётчика после каждой цифры
end; //Конец цикла
writeln('Сумма = ', sum); //Вывод результата
end.

//ZedPost.Ru
//18.11.2012
//Суммирование i последних цифр числа n

Открыть данную программу можно в таких компиляторах, как Pascal ABC.Net, Pascal ABC, Lazarus и Turbo Pascal/

Скачать исходник программы Pascal: sumicifr.pas

На паскале можно даже нарисовать картинку, но будет ли она красива? На паскале можно попытаться написать графический редактор, но будет ли он функциональным? Картинки нужно рисовать в Фотошоп, inkscape или хотя бы в Paint.net! Тем более, что все для фотошопа можно всегда легко найти в интернете!
Автор: Zed от 2012-11-19 19:46:18   Просмотров: 2452

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