Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Arteus
0 / 0 / 0
Регистрация: 16.10.2009
Сообщений: 1
1

натуральное число

20.10.2009, 00:53. Просмотров 945. Ответов 1
Метки нет (Все метки)

Дано натуральное число:
1. найти первую и последнею цифры числа;
2. верно ли, что сумма цифр данного числа равна А(А вводится с клавиатуры)
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2009, 00:53
Ответы с готовыми решениями:

Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n
Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n.

Даны натуральное число n, действительное число а. Выдать на экран последовательность чисел: а, а+1!, а+2!, а+3!, . , а+п!
вот есть програма которая просто виводит последовательность чисел без факториала: а, а+1, а+2, а+3,...

Найти натуральное наименьшее число n, факториал которого превышает число 4000
Написать программу для решения следующей задачи,используя,по крайней мере, два вида циклов. Найти...

Дано натуральное число n получить наименьшее число вида 2^x превосходящее n
Дано натуральное число n получить наименьшее число вида 2^x превосходящее n. Не получается. ...

Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.
Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.

1
Puporev
Модератор
58915 / 44598 / 30782
Регистрация: 18.05.2008
Сообщений: 106,852
20.10.2009, 06:45 2
Лучший ответ Сообщение было отмечено как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var n:longint;
    k,c1,cp:byte;
begin
clrscr;
write('n=');
readln(n);
cp:=n mod 10;
while n>10 do
n:=n div 10;
c1:=n;
write('Первая цифра ',c1,'  последняя ',cp);
readln
end.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var n:longint;
    a,s,k:byte;
begin
clrscr;
write('n=');
readln(n);
write('A=');
readln(a);
s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;
writeln('Сумма=',s);
if s=a then write('Сумма равна A')
else write('Сумма не равна A');
readln
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2009, 06:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дано натуральное число n. Получите наименьшее число вида 2^k, превосходящее n
Пусть дано натуральное число n. Получите наименьшее число вида 2^k, превосходящее n.

Дано натуральное число n, получить наименьшее число вида 2^r, прувосходящее n
Дано натуральное число n, получить наименьшее число вида 2^r, прувосходящее n!!!!!!!!!!!!!!!!!!

[Операторы цикла] Дано натуральное число n, и действительное число x. Вычислить
Доброго времени суток, много уважаемые форумчани. Прощу вас о помощи. По скольку очень слабо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.