Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)
№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); 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); end.
Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)
№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); 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); end.
ответ к заданию по русскому языку
