Задача 1. Даны три целых числа А, В, С. Найти их сумму, произведение, а также разность между А и В и частное чисел В и С. Задача
Задача 1. Даны три целых числа А, В, С. Найти их сумму, произведение, а также разность между А и В и частное чисел В и С. Задача 2. Даны два числа А и В. Найти на сколько первое число меньше второго.
Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)
№1
var A, B, C, sum, razn, proizv: integer; chastnoe: real; label undf; begin undf: writeln('Введите А:'); readln(A); writeln('Введите B:'); readln(B); writeln('Введите C:'); readln(C); sum := A + B + C; // находим сумму АВС proizv := A * B * C; // находим произведение АВС razn := A - B; // находим разность А и В chastnoe := B / C; // находим частное В и С writeln('Сумма А, В, С: ', sum); writeln('Произведение А, В, С: ', proizv); writeln('Разность А и В: ', razn); writeln('Частное В и С: ', chastnoe); <span>end.
№2 var A, B, razn: integer; begin write('Введите А: '); readln(A); write('Введите B: '); readln(B); razn := abs( A - B ); if A < B then writeln('Первое число меньше второго на ', razn) else writeln('Первое число больше второго на ', razn); <span>end.</span></span>