50 ! составить разветляющейся алгоритм. дано трехзначное число. определить: - какая из его цифр больше - верно ли, что все его цифры одинаковые

147

263

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

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

lemarakurtazhiv

Информатика

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

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('n='); var a,b,c: integer; // цифры числа n = abc var (i,j,k): =(1,2,3); // места цифр a,b,c, расположенных по неубыванию var s1: array[1..3] of string: =('первая','вторая','третья'); var s2: array[1..3] of string: =('первой','второй','третьей'); a: =n div 100; b: =(n div 10) mod 10; c: =n mod 10; // сортировка по неубыванию if a> b then begin swap(a,b); swap(i,j) end; if b> c then begin swap(b,c); swap(j,k); if a> b then begin swap(a,b); swap(i,j) end end; if c> b then writeln(s1[k],' цифра больше остальных') else if b> a then writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i]) else writeln('все три цифры одинаковы') end. примеры n= 638 третья цифра больше остальных n= 583 вторая цифра больше остальных n= 707 первая и третья цифры больше второй n= 444 все три цифры одинаковы

madina319

Информатика

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

1) решение с массивами

var

a: array[1..20] of longint;

i, sum: longint;

begin

for i: =1 to 20 do

begin

read(a[i]);

if a[i] mod 6=0 then sum: =sum+a[i];

end;

writeln(sum);

end.

постановка позволяет отказаться от использования массивов и работать только с тремя целочисленными переменными.

2) решение без массивов

var

x, i, sum: longint;

begin

for i: =1 to 20 do

begin

read(x);

if x mod 6=0 then sum: =sum+x;

end;

writeln(sum);

end.

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

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

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

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

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

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

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

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

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

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