Question

ИНФОРМАТИКА,РЕШИТЬ ЗАДАЧИ ,помогите  решить,пожалуйста,хоть несколько!
1.Даны 3  целых числа-А,В,С. Вычислить  их сумму  и  произведение
2.Вывести на  экран  случайное  число от 0 до 10
3.Вывести на экран  двузначное  случайное  число
4. Найти  сумму  цифр двузначного числа

1. Определить  принадлежит  ли  введенное  с клавиатуры число  интервалу (0,5)
2.Ввести число с  клавиатуры. Если  оно  положительно,то найти квадрат  этого числа,если отрицательно-модуль.
3.Найти большее  из двух чисел ,заданных  случайным  образом из интервала [-7;23]
4.Ввести  двузначное  число  с клавиатуры. Четна ли  сумма  его цифр?
5. Ввести  трехзначное  число. Расположить  цифры  в  порядке  возрастания

Answer 1

Задачи несложные.
1. program qq;
var A, B, C, s, p: integer;
 begin
writeln ('vvedite tri tselykh chisla');
readln (A, B, C);
s:= A + B + C;
p:= A * B * C;
writeln (s, p);
readln;
readln;
 end.

С остальными попробуй разобраться сама.