Определить больше ли число суммы своих цифр

@tishka15 · Регистрация: 07.01.2012

Студворк — интернет-сервис помощи студентам

1)Если целое число m делится нацело на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение вида «m=48 на n=9 нацело не делится».
2)Дано трехзначное число. Определить:
a. больше ли число суммы своих цифр;
b. четна ли сумма его цифр;
c. оканчивается ли число цифрой 5;
d. является ли число палиндромом.
3)Найти наибольшее из трех введенных с клавиатуры чисел.
4)Найти количество положительных чисел среди четырех чисел а, b, с, d, введенных с клавиатуры.
5) Дано три числа. Найти произведение только отрицательных из них.

Комментарий модератора

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@WebMax 2.0 · 09.01.2012, 18:28

Сообщение от tishka15

1)Если целое число m делится нацело на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение вида «m=48 на n=9 нацело не делится».

Pascal
1
2
3
4
5
6
7
8
 uses crt;
 
 var m,n:integer;
 
 begin
 readln(m,n);
 If m mod n =0 then writeln(m div n) else writeln('m=',m,' на n=',n,' нацело не делится')
 end.

Добавлено через 12 минут

Сообщение от tishka15

3)Найти наибольшее из трех введенных с клавиатуры чисел.

Pascal
1
2
3
4
5
6
7
8
9
10
11
 uses crt;
 
 var a,b,c,m:integer;
 
 begin
    readln(a,b,c);
    m:=a;
    if b>a then m:=b;
    if c>b then m:=c;
    writeln(m);
 end.

@tishka15 · 09.01.2012, 18:31 **[ТС]**

4 сделал

@Electroflower · 09.01.2012, 18:37

Дано три числа. Найти произведение только отрицательных из них.

Дано как?Оо тоже с клавиатуры вводить надо? Не поняла немного

@tishka15 · 09.01.2012, 18:42 **[ТС]**

да))))

@WebMax 2.0 · 09.01.2012, 18:43

Сообщение от tishka15

5) Дано три числа. Найти произведение только отрицательных из них.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
 uses crt;
 
 var a,b,c,s:integer;
 
 begin
    s:=1;
    readln(a,b,c);
    if a<0 then s:=s*a;
    if b<0 then s:=s*b;
    if c<0 then s:=s*c;
    writeln(s);
 end.

@Electroflower · 09.01.2012, 18:52

Немного не успела) у меня в Delphi7
и массив задается рандомно

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var
  Form1: TForm1;
  R:array [1..3] of integer;
  i,n:Integer;
  proizv:integer;
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=3;
randomize;
for i:=1 to n do
begin
R[i]:=random(30)-25;
Edit1.Text:=Edit1.Text+'  '+inttostr(R[i]);
 
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=3;
proizv:=1;
for i:=1 to n
do
if R[i]<0 then
proizv:= proizv*R[i] ;
Edit2.Text:=Inttostr(proizv);
end;
 
end.

@tishka15 · 09.01.2012, 18:54 **[ТС]**

спасибо за помощь,очень выручили

@Electroflower · 09.01.2012, 19:27

Вот вторая кроме полиндрома=(
я не смогла, ибо не знаю как

остальное вроде работает)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
s,d,e:integer;
summ:integer;
begin
n:=Strtoint(Edit1.Text);
If n div 100= 0    then
showmessage('введите трtтрехзначное');
If n div 1000 > 0    then
showmessage('введите  трехзначное');
begin
s:=n div 100;
d:=n mod 100 div 10;
e:=n mod 10;
summ:= s+d+e;
if n> summ then
Label1.Caption:='Число больше суммы цифр'
else
Label1.Caption:='Число НЕ больше суммы цифр';
end;
begin
if summ mod 2 = 0
then
Label2.Caption:='Сумма цифр равна четному числу'
else
Label2.Caption:='Сумма цифр НЕ равна четному числу';
end;
begin
if e=5 then
Label3.Caption:='число заканчивается на 5'
else
Label3.Caption:='число заканчивается НЕ на цифру 5';
 
end;
end;
 
end.

@Electroflower · 09.01.2012, 19:30

Вот exeшничек

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@tishka15 0 / 0 / 0 Регистрация: 07.01.2012 Сообщений: 8
	09.01.2012, 18:31 [ТС]
	4 сделал 0

@tishka15 0 / 0 / 0 Регистрация: 07.01.2012 Сообщений: 8
	09.01.2012, 18:42 [ТС]
	да)))) 0

@tishka15 0 / 0 / 0 Регистрация: 07.01.2012 Сообщений: 8
	09.01.2012, 18:54 [ТС]
	спасибо за помощь,очень выручили 0

Определить больше ли число суммы своих цифр

Решение

Решение