помогите пожалуйста, очень прошуНапишите программу на языке Паскаль для решения ...

May 2022 1 32 Report

помогите пожалуйста, очень прошу
Напишите программу на языке Паскаль для решения задачи:
1. Запросить от пользователя трехзначное натуральное число.
2. Разбить число на цифры.
3. Найти сумму и произведение цифр числа.
4. Вывести на экран ответ "Больше", если сумма больше произведения,
ответ "Меньше" , если сумма меньше произведения
и "Равно", если сумма равна произведению.

Answers & Comments

fovfabomi Ответ:var x, sum, comp, k:integer; begin readln(x); comp := 1; while x > 0 do begin k := x mod 10; sum := sum + k; comp := comp * k; x := x div 10; end; if sum > comp then writeln('Больше'); if sum < comp then writeln('Меньше'); if sum = comp then writeln('Равно'); end. Объяснение:Просто и красиво. Работает с числами почти любой длинны. Без лишних переменных.

3 votes Thanks 2

qwerty4235 огромное спасибо тебе

s1veme Циклом можно было*

fovfabomi можно

Answers & Comments

pochemu nekotorye zhivotnye ne sposobny vyzhivat v drugih usloviyah pzh otvette a

srochno srochno pzh pzh pzh pzh pzh pzh

srochno srochno pzh pzh aaaaaaaaaaaaaaaaaaaa

pzh pzh pzh srochno1 esli udalit yadro iz yajcekletki lyagushki albinosa i tuda peres

pzh pzh pzh srochno zavtra v shkolurassuzhdenie yavlyaetsya li yazyk razvivayushimsya yavlen

dana programma var s t integer begin readlns readlnt if s gt 2 and

pzh pzh pzh pzh pzh srochno82800e80afff279b0b332bb0b4caa3fb 95926

pomogite ochen proshu srochno u menya na eto est 2 chasa ochen silno proshu dayu 100

pozhalujsta pomogite s voprosomochen silno proshupochemu ideya rasizma vse eshe zhiva

рекомендуемые вопросы

Helpful Links

Helpful Social