В круглосуточном супермаркете установлено 20 касс и работает всего одна тетя Галя – хранительница ключей для отмены операций. Кассиры работают в три смены. Известно, что после каждого применения ключа для отмены операций в системе сохраняется следующая информация: номер кассы и номер смены. Причем что номер кассы, что номер смены представляются с минимально возможного количества бит и записываются последовательно друг за другом. В конце месяца, подводя итоги работы, решили проанализировать журнал отмены операций. Сколько раз Галя бегала через весь супермаркет, если известно, что журнал с записями об отмене операций занимает 3.5 КБайт?
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c;
if (a >= 0) and (b >= 0) then rez := a + b;
if (a >= 0) and (c >= 0) then rez := a + c;
if (b >= 0) and (c >= 0) then rez := b + c;
if (a <= 0) and (b <= 0) then rez := c;
if (b <= 0) and (c <= 0) then rez := a;
if (a <= 0) and (c <= 0) then rez := b;
if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0;
writeln(rez);
end.
Громоздко, но, думаю, покатит
var a,b,c: real;
begin
readln (a,b,c);
If c > a+b then writeln ( 'Такого треугольника не существует');
If a > c+b then writeln ( 'Такого треугольника не существует');
If b> a+c then writeln ( 'Такого треугольника не существует');
If a=b and a=c then writeln ('Этот треугольник равносторонний');
If a=b or a=c or b=c then writeln ('Этот треугольник равнобедренный');
If a = scrt ( b*b + c*c) then writeln ('Этот треугольник прямоугольный');
If b = scrt (a*a + c*c) then writeln ('Этот треугольник прямоугольный');
If c = scrt (a*a + b*b) then writeln ('Этот треугольник прямоугольный');
end.