Напишите программу Паскаль к двум задачам: 1. Расстояние до ближайшей к Земле звезды Альфа Центавра 4,3 световых года. Скорость света принять за 300.000 км/с. Скорость земного звездолёта 100 км/с . За сколько лет звездолёт долетит до звезды?
2. Документ содержит текст из 32 строк по 60 символов в каждой и точечную черно-белую фотографию 10 × 15 см. Каждый квадратный сантиметр 300 точек, любая точка описывается 4-мя битами. Каков общий информационный объем документа в Кбайтах?
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.
Громоздко, но, думаю, покатит