Регистрация Спросить otvet5GPT
ДашаааDidek
08.06.2022 01:16
Информатика
Есть ответ 👍

По инфе с на циклы: 1. вводятся 15 чисел, сколько из них удовлетворяют условиям нечетное и кратно 7 2. вводятся 10 чисел, найдите их сумму

198
485
Посмотреть ответы 2

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

sofya15081987
sofya15081987
4,7(83 оценок)
Uses crt; var i,a,k: integer; begin     for i: =1 to 15 do     begin       readln(a);       if (a mod 2=1) and (a mod 7=0) then inc(k);     end;     writeln(k); end. uses crt; var i,a,sum: integer; begin     sum: =0;   for i: =1 to 10 do     begin     readln(a);       sum: =sum+a;     end;     writeln(sum); end.
jrihdevhdve
jrihdevhdve
4,7(65 оценок)

var a,b,c:integer;

begin

 read(a,b,c);

 if a-b > c then begin

   a:=a*2;

   b:=b*2;

   c:=c*2

   end

  else

    begin

   dec(a,1);

   dec(b,1);

   dec(c,1);

   end;

   writeln(a,' ',b,' ',c);

end.

*dec функция уменьшающая число n на i

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS