Нужно составить программы. Напишите кто-нибудь, очень нужно.
1)Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?
2) Дано целое положительное число. Определите, оканчивается ли оно цифрой 7
1)Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?
2) Дано целое положительное число. Определите, оканчивается ли оно цифрой 7
More Questions From This User See All
Answers & Comments
var a,b,c:real;
begin
writeln('введите стороны треугольника');
readln(a, b, c);
if (a+b>c) and (a+C>b) and (b+c>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.