Almas171795

07.06.2023 17:53

Информатика

Есть ответ 👍

Те кто шарит в информатике

нужно найти ошибку в паскале(пишу это в самом паскале и не правильно,т.е где то ошибка). уже замучились искать
условие было: дано 3 числа.найти кратные 3 и вывести их в порядке убывания.

program z_1;

var a,b,c,d,e,f: integer;

begin

d: =0;

e: =0;

f: =0;

read(a,b,c);

if a mod 3=0 then

d: =a;

if b mod 3=0 then

e: =b;

if с mod 3=0 then

f: =с;

if (d> e) and (d> f) then

write(' ',d);

if (e> d) and (e> f) then

write(' ',e);

if (f> d) and (f> e) then

write(' ',f);

if (d> e) and (e> f) then

write(' ',e);

if (f> e) and (e> d) then

write(' ',e);

if (e> d) and (d> f) then

write(' ',d);

if (f> d) and (d> e) then

write(' ',d);

if (d> f) and (f> e) then

write(' ',f);

if (e> f) and (f> d) then

write(' ',f);

if (d=0) and (e=0) and (f=0) then

write('значений нет');

end.

223

495

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

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

Veroni4ka7090

Информатика

4,6(56 оценок)

program z_1;

var

a, b, c, k, t: integer;

begin

k : = 3;

read(a, b, c);

if abs(a) mod 3 < > 0 then

k : = 2;

if abs(b) mod 3 = 0 then

begin

if k = 2 then

a : = b

end

else

dec(k);

if abs(c) mod 3 = 0 then

begin

if k = 1 then

a : = c

else if k = 2 then

b : = c;

end

else

dec(k);

case k of

0: write('значений нет');

1: write(a);

else

begin

if b > a then

begin

t : = a;

a : = b;

b : = t;

end;

if k = 3 then

begin

if c > b then

begin

t : = b;

b : = c;

c : = t;

end;

if b > a then

begin

t : = a;

a : = b;

b : = t;

end;

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

end

else

write(a, ' ', b);

end;

end

end.

если отрицательными числа быть не могут, можно abs( ) убрать

ivkov2003

Информатика

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

ответ:

program z_1;

var

a, b: array [1..3] of integer;

i, imax, btmp: integer;

ine: boolean;

begin

for i : = 1 to 3 do begin

read (a [i]);

b [i] : = 0;

end;

ine : = false;

for i : = 1 to 3 do begin

if a [i] mod 3 = 0 then begin

b [i] : = a [i];

ine : = true;

end else

b [i] : = 0;

end;

if ine then begin

imax : = 1;

for i : = 2 to 3 do

if b [i] > b [imax] then

imax : = i;

btmp : = b [imax];

b [imax] : = b [1];

b [1] : = btmp;

if b [2] < b [3] then begin

btmp : = b [2];

b [2] : = b [3];

b [3] : = btmp;

end;

writeln;

for i : = 1 to 3 do

if b [i] < > 0 then

write (b [i], ' ');

end else

writeln ('значений нет.');

readln;

end.

Kat11166

Информатика

4,4(92 оценок)

точно не помню но по-моему control + c

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

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

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

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

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

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

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

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

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

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