Есть ответ 👍

Информатика, чертежник буква "д"

199
442
Посмотреть ответы 1

Ответы на вопрос:


первая

var n,x: integer;

begin

  readln(n);

  while n < > 0 do begin

  x: =x + n mod 10;

  n: =n div 10;

  end;

  if(x mod 2 = 0) then

    writeln('true')

  else

    writeln('false');

end.

вторая

var x,z,s: integer;

begin

  readln(x);

  if (x > 99) and (x < 1000) then begin

    s: =x;

    while s< > 0 do begin

      z: =z+s mod 10;

      s: =s div 10;

    end;

    if(x*x) = (z*z*z) then

      writeln('true')

    else

      writeln('false');

  end

  else

    writeln('число должно быть 3-ех значным! ');

end.

третья

var a,b,c: real;  

begin  

  writeln('введите a');

  readln(a);

  writeln('введите b');

  readln(b);

  writeln('введите c');

  readln(c);

  if (a=b) or (a=c) or (b=c) then

    writeln ('true')

  else

    writeln ('false);

end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS