Решения в приложениях. Если будут вопросы - задавайте.
Здесь есть ошибка счисления потому что 128+178=306 а не 318
Var a,b,c:integer;
begin
writeln('Вычесление периметра треугольника.');
writeln('Введите значение стороны a.');
readln(a);
writeln('Хорошо. Вы ввели значение для a: ',a);
writeln('Введите значение стороны b.');
readln(b);
writeln('Хорошо. Вы ввели значение для b: ',b);
writeln('Введите значение стороны c.');
readln(c);
writeln('Хорошо. Вы ввели значение для c: ',c);
if a<0 then
writeln('Данный треугольник не существует')
else
if b<0 then
writeln('Данный треугольник не существует')
else
if c<0 then
writeln('Данный треугольник не существует')
else
if a+b<c then
writeln('Данный треугольник не существует')
else
if a+c<b then
writeln('Данный треугольник не существует')
else
if b+c<a then
writeln('Данный треугольник не существует')
else
writeln('Периметр треугольника: ',a+b+c);
end.
3) При составлении алгоритмов используют величины целого, вещественного, логического, символьного и литерного типов.
4) 2010 - целочисленный
14.48 – вещественный
'Да' – символьный
FALSE - логический
'142' – символьный
1,4 • 105 - вещественный
123Е-2 – может быть, как вещественным, целочисленным или символьным.
5) а) вес человека - вещественный
б) марка автомобиля - символьный
в) год вашего рождения - символьный
г) площадь фигуры - вещественный
д) название месяца года - символьный
е) количество мест в самолете - целый