Необходимо составить программы. Напишите кто-нибудь, очень необходимо.1)Даны вещественные числа a,b,c.

Нужно составить программки. Напишите кто-нибудь, очень необходимо.
1)Даны вещественные числа a,b,c. Определите, существует ли треугольник со гранями a,b,c?
2) Дано целое положительное число. Обусловьте, оканчивается ли оно цифрой 7

Задать свой вопрос
1 ответ
Даны вещественные числа a,b,c. Определите, существует ли треугольник со гранями a,b,c?
var a,b,c:real;
begin
  writeln('введите стороны треугольника');
  readln(a, b, c);
  if (a+bgt;c) and (a+Cgt;b) and (b+cgt;a) then  writeln('треугольник существует')
  else   writeln('треугольник не существует');
end.

Дано целое положительное число. Обусловьте, заканчивается ли оно цифрой 7
var
  N:integer;
begin
  writeln('введите число');
  readln(N);
  if n mod 10= 7 then
    writeln('заканчивается  цифрой 7')
   else    writeln( 'не оканчивается цифрой 7');
end.






, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт