Синформатикой что поменять в проге ниже чтобы показывало не количество цифр в числе а нечетное ( или - id903463420220115 от MomoiSatsuki16 15.01.2022 03:53

Question

Информатика: Синформатикой что поменять в проге ниже чтобы показывало не количество цифр в числе а нечетное ( или четноe) количество var k : integer; function kol(x: integer): integer; var k: integer; begin k : = 0; repeat x : = x div 10; inc(k) until x = 0; kol : = k end; begin write (k); readln (k); writeln(k, kol , kol(k)); end. чтобы покозывало не количество цифр в числе а нечетное (четно)количество

MomoiSatsuki16 · Accepted Answer

Из математики:
треугольник существует тогда и только тогда, когда длина одной стороны не превосходит суммы длин двух других сторон (неравенство треугольника). Т.е. необходимо провести три сравнения:

program qq;
uses crt;
var a, b, c, p: integer;
begin
p:=0; // обнуляем переменную
writeln('Введите через пробел значения a, b и с');
readln (a, b, c);
if a<=(b+c) then
  if b<=(a+c) then
if c<=(b+a) then
  p:=1; //если все условия
//выполнены то треугольник
  //существует. присваиваем переменной значение 1.
writeln (p);
end.

MOGZ ответил