Нужно найти сумму цифр трехзначного числа и записать в паскале

296

420

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

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

кицуня1

Информатика

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

var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа

akrut

Информатика

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

var a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: '); readln(a); // вводим число (можно больше трех знаков) while a < > 0 do // пока остались цифры в числе begin s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме a : = a div 10; // стираем последнюю цифру числа end; writeln('сумма цифр = ', s) // выводим результатend.

gerger10

Информатика

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

первое.

var a: array[0..9] of integer; i,y,min: integer; beginrandomize(); for i: =0 to 9 do begin y: = random(10); a[i]: = y; end; for i: =0 to 9 do write(a[i],' '); writeln(' - десять випадкових чисел'); min: =a[0]; for i: =1 to 9 do if a[i]< min then min: =a[i]; writeln(min, ' - мiнiмальне число.');

end. второе

var a: array[0..9] of integer; i,y,s,max: integer; beginrandomize(); for i: =0 to 9 do begin y: = random(10); a[i]: = y; end; for i: =0 to 9 do write(a[i],' '); writeln(' - десять випадкових чисел'); max: =a[0]; for i: =1 to 9 do if a[i]< max then max: =a[i]; writeln(max, ' - максимальне число.'); s: =0; // сума чисел, що приймають таке значення for i: =0 to 9 do if a[i]=max then s: =s+1; writeln('зустричается ',s,' раз.');

end.

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

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

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

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

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

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

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

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

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

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