x = 0
y = 6
y > 0 - да, значит y = 6 - 3 = 3, x = 0 + 3 = 3
y > 0 - да, y = 3 - 3 = 0, x = 3 + 0 = 3
0 > 0 - нет, выводим x и он равен 3
Var
a,b,c:real;
begin
Write('Введите через пробел длины трех сторон: ');
Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
Writeln('Можно составить треугольник')
else
Writeln('Нельзя составить треугольник')
end.
Тестовое решение:
Введите через пробел длины трех сторон: 2 6 9
Нельзя составить треугольник
Введите через пробел длины трех сторон: 3 4 5
Можно составить треугольник
Характер передачи - это передача информации.
Он может быть Односторонний и Двусторонний.
Односторонний - это когда информация исходит только от источника в приемник.
Например: вы видите светофор, он источник, а вы приемник.
Двусторонний - это когда и источник и приемник передают информацию.
Например: работа за компютером, вы вводите информацию и компьютер выводит вам новую. Это очень просто говоря.
Var
a, b, c, max: longint;
begin
readln(a, b, c);
max := a;
if (b > max) then
max := b;
if (c > max) then
max := c;
writeln(max);
end.