Лабораторная работа № 3. Условный оператор Вариант 7

Задание №1. Дано решение некоторой задачи. Выполнить следующее:

1. по решению сформулировать условие задачи;
2. предложить систему тестов для проверки работоспособности программы.

var a, b, c: real;
    s: integer;
begin
     write('Введите три числа:');
     readln(a, b, c);
     s:=0;
     if a<0 then s:=s+1;
     if b<0 then s:=s+1;
     if c<0 then s:=s+1;
     writeln(s)
end.
Задание № 2. Дана программа, решающая некоторую задачу. В программе имеются синтаксические ошибки и пропуски. Необходимо исправить ошибки и заполнить пропуски. Предложить систему тестов для проверки работоспособности программы.
На оси OX расположены три точки a, b, c. Определить, какая из точек b, c расположена ближе к a.
var a, b, c: real;
begin
     write('Введите три числа:');
     readln(a, b, __)
     if abs(b-a):=abs(c-a)
     then writeln('точки расположены на одинаковом расстоянии от A')
     else if abc(b-a)>abc(c-a) then writeln('точка C расположена ближе к A')
                                 else writeln('точка B расположена ближе к A')
end.
Задание № 3. Решить задачу: вычислить значение функции
Задание № 4. Решить задачу.
Дано четырехзначное число. Вывести его цифры, кратные 3.