karina845

28.02.2022 21:43

Информатика

Есть ответ 👍

Что не так с программой?

188

218

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

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

Аккерман11

Информатика

4,7(39 оценок)

Поменяй тип переменной s на real, у тебя в данном случае может получится вещественное значение в s, а тип integer не может хранить вещественные числа. Также, насколько я понимаю нужно сумму найти, тогда ты не просто в цикле присваиваешь s какое-то значение, а именно прибавляешь к s выражение. s := s + выражение

var n, i, x : integer;

s : real;

p : longint;

bochinskaya06

Информатика

4,8(91 оценок)

var

x, y: integer;

n: integer;

sum: integer;

mindif: integer;

f: text;

begin

assign(f,'C:\27-A.txt');

reset(f);

readln(f, n);

sum := 0;

mindif := 20001;

while not eof(f) do begin

readln(f, x, y);

if x > y then

sum := sum + x

else

sum := sum + y;

if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);

end;

if sum mod 3 <> 0 then

writeln(sum)

else

writeln(sum - mindif);

end.

Объяснение:

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

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

Задай свой вопрос

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

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

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

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

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

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

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