Презентация, доклад по информатике на тему Конструкция языка Паскаль

принимающие целые значения, записываются в разделе описаний с указанием типа integer (целый).
Например: var a, b, c, a1, b34, nomb: integer;

языке Паскаль

b.
Дробная часть при этом отбрасывается.
Остаток от деления a на b.
a_mod_b

же цифр, но взятых в обратном порядке

и остаток отбрасываем, т. е. выполняем целочисленное деление.
Для определения цифры десятков надо из данного числа вычесть сотни, результат разделить на 10 и остаток отбросить.
Для определения цифры единиц надо из данного числа вычесть сотни и десятки. Для записи числа теми же цифрами в обратном порядке, умножим цифру единиц на 100, сложим с цифрой десятков, умноженной на 10 и с цифрой сотен.
Далее из заданного числа вычитаем полученное новое. Например, для числа 342. Выполним целочисленное деление числа на 100, получим цифру сотен:
342 div 100 = 3;
вычитаем из 342 сотни 3*100 и результат делим на 10 - получим цифру десятков:
(342 - 3*100) div 10 = 4;
наконец, вычитаем из заданного числа сотни и десятки, получаем цифру единиц:
342 - 3*100 - 4*10 = 2.
Для записи числа в обратном порядке, умножаем цифру единиц 2 на 100 и складываем с цифрой десятков, умноженных на 10 (4*10) и прибавляем цифру сотен 3. Получим новое число, записанное теми же цифрами, но в обратном порядке:
2100 + 410 + 3 = 243.
Вычитаем: 342 - 243 = 99.

b, r : integer;
begin
write('Введите трехзначное число '); readln(a);
s := a div 100;
d := (a - s*100) div 10;
e := a - s*100 - d*10;
b := e*100 + d*10 + s;
r := a - b;
writeln('Искомая разность равна ', r)
end.

ее исполнение. Это различные объяснения, заголовки отдельных частей программы и т.д. Компьютер печатает комментарии вместе с текстом программы, но, выполняя программу, игнорирует их. Программа выполняется так, словно комментариев нет.

двух чисел}
{автор программы Иванов Александр Петрович}
{программа составлена 12.10.1993}
{программа доработана 20.10.1993}
{программа протестирована 20.10.1993}

a,{первое число}
b,{второе число}
c,{их наибольший общий делитель} ...

mod b {остаток от деления a на b}
d := b*b - 4*a*c {вычисление дискриминанта квад. ур-я}

e, b, r : integer;
begin
write('Введите трехзначное число '); readln(a);
c := a; {Запоминается первоначальное число}
e := a mod 10; (* Цифра единиц *)
a := a div 10;
d := a mod 10; (* Цифра десятков *)
s := a div 10; (* Цифра сотен *)
b := e*100 + d*10 + s;
(* Число, записан. в обратном пор. *)
r := c - b; (* Разность чисел *)
writeln('Искомая разность равна ', r)
end.

программу так, чтобы для определения цифр трехзначного числа надо было бы делить только на 10 (в приведенных программах используется деление на 100 и на 10).
2. Применяя этот способ, составьте программу, которая подсчитывает сумму и произведение цифр введенного четырехзначного числа.