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

Короч, в край уже разленились все)

vk. com /lazy_russian

Пробелы убери, а насчёт лени не согласен, я плохо понимаю информатику, но сижу допоздна, но у меня учить хорошо получается литература и русский, ответы на вопросы делаю... У каждого свои способности как никак...(

Ой, не по русски сказал, извиняйте :с

Ладно закроем тему... Всем удачи.

Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)№1var A, B, C, sum, razn, proizv: integer; chastnoe: real;label undf;beginundf: 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.№2var A, B, razn: integer;beginwrite('Введите А: ');readln(A);write('Введите B: ');readln(B);razn := abs( A - B );if A < B then writeln('Первое число меньше второго на ', razn)else writeln('Первое число больше второго на ', razn);end.