Задача 1. Даны три целых числа А, В, С. Найти их сумму, произведение, а также разность между А и В и частное чисел В и С.

Задача 2. Даны два числа А и В. Найти на сколько первое число меньше второго.

Задача 1

begin

var

a, b, c : integer;

readln (a, b, c) ;

writeln (a+b+c) ;

writeln (a*b*c) ;

writeln (a-b) ;

writeln (b/c) ;

end.

Задача 2

begin

var

a, b : integer;

readln (a, b) ;

if a>b then writeln (a/b) ;

if b>a then writeln (b/a) ;

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.