Dozie

23.12.2021 05:27

Информатика

Есть ответ 👍

Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10. Пример:
Введите число >= 0: Введите число >= 0:
-234 1233
Нужно положительное число. Нет
Введите число >= 0:
1234
Да
решение паскаль.

179

220

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

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

Александа7

Информатика

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

program CheckSum;

var

number1, number2, number3: longint;

function Check(n: longint): boolean;

var

sum: longint;

begin

sum := 0;

while n > 0 do

begin

sum := sum + n mod 10;

n := n div 10;

end;

Check := sum = 10;

end;

begin

writeln('Введите два числа через пробел:');

readln(number1, number2);

if number1 < 0 then

begin

write('Нужно ввести положительное число.');

end

else

begin

if Check(number1) then

begin

write('Да');

end

else

begin

write('Нет');

end;

if number2 < 0 then

begin

write(' Нужно ввести положительное число.');

end

else

begin

if Check(number2) then

begin

write(' Да');

end

else

begin

write(' Нет');

end;

writeln();

repeat

write('Введите число >= 0: ');

readln(number3);

if number3 < 0 then

begin

writeln('Нужно ввести положительное число.');

end;

until number3 >= 0;

if Check(number3) then

begin

writeln('Да');

end

else

begin

writeln('Нет');

end;

end.

kulisenok

Информатика

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

начну с того, что это логический код

дословный перевод

var n, i, m: целое число;

флаг: логический;

начать

readln(n); прочитать переменную

флаг: = false; флагу присвоить значение лжи

если (n mod 2< > 0), то i: =n-1 иначе i: =n;

в то время как i> 0 действительно начинаются

если мощность(2, i)< =n, то начинайте

write (power(2, i),' '); flag: = true; в этом случае флагу присвоить правдивое значание

конец;

i: =i-2;

конец;

если не флаг, то writeln(0);

конец

я особо в логических не шарю, но тут идёт по типу если это трава то это наркота

а если это дурь то это тоже наркота

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

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

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

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

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

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

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

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

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

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