Решите в паскале авс, , ! найти сумму цифр трёхзначного числа введённого с клавиатуры

156

320

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

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

whitesnaff

Информатика

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

Program n1; var a: integer; begin readln(a); write((a mod 10)+(a div 100)+(a mod 100 div 10)); end.

345153

Информатика

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

Var n: word; { трехзначное число } t1, t2, t3: byte; { цифры трехзначного числа } begin write('введите трехзначное число: '); readln(n); { < -- вводим трехзначное число } writeln; t3 : = n mod 10; { < == третья цифра } n : = n div 10; { < == число созданное первыми двумя цифрами } t2 : = n mod 10; { < == вторая цифра } t1 : = n div 10; { < == первая цифра } writeln('сумма цифр: ', t1 + t2 + t3); readlnend.

dianaverina7777

Информатика

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

Локальные сети позволяют создавать и совместно использовать информационные ресурсы для работы пользователей над общими задачами

Объяснение:

совместно использовать аппаратные ресурсы (периферийные устройства: блоки питания, операционную систему, южный мост) - операционная система не периферийное устройство

централизовать усилия по информационному слиянию компаний - локальные сети не объединяют разные компании

совместно использовать аппаратные ресурсы (процессоры, накопители) - процессоры не используются совместно