Исходник лёгкой программы, которая считает частное с остатком двух, введенных вами с клавиатуры чисел. Открывается программами Pascal ABC, Pascal ABC.Net и Turbo Pascal. Имеет не скомпилированный формат для редактирования .pas. Данная программа находит частное в целых числах и выводит полученный остаток. (операторы mod и div). В программе присутствуют пояснительные комментарии к строкам!
Исходный код программы:
var a, b, c, d:integer;
begin
writeln ('Введите первое число'); //ввод первого числа
readln (a);
writeln ('Введите второе число'); //ввод второго числа
readln (b);
c:=a div b; //выполнение действий с числами
d:=a mod b;
writeln ('Частное равно ',c);//вывод результата
writeln ('Остаток ', d);
end.
begin
writeln ('Введите первое число'); //ввод первого числа
readln (a);
writeln ('Введите второе число'); //ввод второго числа
readln (b);
c:=a div b; //выполнение действий с числами
d:=a mod b;
writeln ('Частное равно ',c);//вывод результата
writeln ('Остаток ', d);
end.
Скачать: chastnoe-s-ostatkom.pas
Разобраться в коде данной программы Вы можете, изучив Урок №2 - основные операторы, простые действия. Исходник программы для нахождения ПРОСТОГО ЧАСТНОГО БЕЗ ОСТАТКА находится тут.