ИНФОРМАТИКА,РЕШИТЬ ЗАДАЧИ ,помогите решить,пожалуйста,хоть несколько!1.Даны 3 целых...

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

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


Информатика (54 баллов) | 33 просмотров
Дан 1 ответ
0 голосов

Задачи несложные.
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.

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

(206 баллов)