Регистрация Спросить otvet5GPT
поварешка1
07.02.2020 04:27
Информатика
Есть ответ 👍

Найдите ошибку в программе pascal : дано: a,b,c,d. найти: среднее значение чисел принадлежащих интервалу(1; 30) и кратных 3. program zaschita; var s,k,a,b,c,d: integer; sr: real; begin write ('a='); readln(a); write ('b='); readln(b); write ('c='); readln(c); write ('d='); readln(d); s: =0; k: =0; a: =1; while (a< =30) do begin if (a mod 3=0) then s: =s+a; k: =k+1; end; b: =1; while (b< =30) do begin if (b mod 3=0) then s: =s+b; k: =k+1; end; c: =1; while (c< =30) do begin if (c mod 3=0) then s: =s+c; k: =k+1; end; d: =1; while (d< =30) do begin if (d mod 3=0) then s: =s+d; k: =k+1; end; sr: =s/k; writeln ('среднее значение=',sr); end.

102
437
Посмотреть ответы 2

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

yvvv
yvvv
4,5(79 оценок)
1. если числа a,b,c,d вводятся с клавиатуры, то их просто нужно проверить на принадлежность интервалу (1; 30), но не присваивать им 1! 2. циклы while не нужны, они зацикливают программу. 3. так как увеличение значения k и суммы нужно выполнять одновременно, то есть при выполнении условия, то нужно было эти команды заключить в операторные скобки begin end примерный вариант программы: program z; var a,b,c,d,k,s: integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); k: =0; s: =0; if (a> 1) and (a< 30) and (a mod 3=0) then begin k: =k+1; s: =s+a; end; if (b> 1) and (b< 30) and (b mod 3=0) then begin k: =k+1; s: =s+b; end; if (c> 1) and (c< 30) and (c mod 3=0) then begin k: =k+1; s: =s+c; end; if (d> 1) and (d< 30) and (d mod 3=0) then begin k: =k+1; s: =s+d; end; if k=0 then writeln(not solution') else writeln(s/k); end.
NastyKek4556
NastyKek4556
4,7(17 оценок)
Программа Проводник – средство, дающее возможность пользователю видеть в иерархической форме структуру, размещение папок и быстро переходить к какому-либо объекту (папке, файлу, ярлыку), а также выполнять ряд действий с папками и файлами.

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS