Question

Пожалуйста помогите написать 3 несложных задания...
1...Записать на языке паскаля: Условие   1) -3<x<=(меньше или равно)10;
                                                              2)x (не равно 0) ,у(не равно 0);
                                                              3)x(принадлежит) [-10;0);
                                                              4)величина x не кратна 3:

2.Cоставить программу,которая находит меньшее из трёх введённых чисел a,b,c и выводит на экран.

3.Введите три числа a,b,c.Найдите сумму двух наибольших из них.

ПОМОГИТЕ ПОЖАЛУЙСТА,ОЧЕНЬ ВАЖНОЕ ЗАДАНИЕ,ОТВЕЧУ ВЗАИМНОСТЬ...)
                                    Огромное спасибо за ранее...

Answer 1

1.
1) (x>-3) and (x<=10)
2) x<>0, y<>0
3) (x>=-10) and (x<0)
4) a mod 3<>0
2.
program koren;
var c, b, a:integer;
begin
write ('Введите 3 числа: ');
read (a);
read (b);
read (c);
if (a<b) and (a<c) then writeln ('наименьшее число - ',a)
else if (b<a) and (b<c) then writeln ('наименьшее число - ',b)
else writeln ('наименьшее число - ',c);
end.