Ответы
Ответ дал:
0
//Pascal
1)
var
N: integer;
begin
write('Введите число: ');
readln(N);
if N mod 2 = 0 then
writeln('Число ', N,' - четное')
else
writeln('Число ', N,' - нечетное');
readln;
end.
2)
var
a, b, c: integer;
begin
write ('Введите стороны треугольника: ');
readln (a,b,c);
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln ('Треугольник существует.')
else
writeln ('Треугольник не существует.');
readln;
end.
1)
var
N: integer;
begin
write('Введите число: ');
readln(N);
if N mod 2 = 0 then
writeln('Число ', N,' - четное')
else
writeln('Число ', N,' - нечетное');
readln;
end.
2)
var
a, b, c: integer;
begin
write ('Введите стороны треугольника: ');
readln (a,b,c);
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln ('Треугольник существует.')
else
writeln ('Треугольник не существует.');
readln;
end.
Приложения:
Ответ дал:
0
спасибо большое за помощь
Ответ дал:
0
можете прислать 2
Ответ дал:
0
спасибо
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад