Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
petrovich228
1 / 1 / 0
Регистрация: 15.09.2016
Сообщений: 31
1

Если число целое,то вывести сумму его цифр,если нет,то вывести корень квадратный из модуля числа

28.10.2016, 20:00. Просмотров 803. Ответов 1
Метки нет (Все метки)

Если число N целое,то вывести сумму его цифр,если нет,то вывести корень квадратный из модуля числа.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2016, 20:00
Ответы с готовыми решениями:

Если число целое, то вывести сумму его цифр, если дробное - то квадратный корень из модуля
Если число N целое,то вывести сумму его чисел,если оно дробное,то его квадратный корень из модуля...

Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE
Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE

Если строка- запись целого числа, то вывести 1; если вещественного , то вывести 2; если строку нельзя преобразовать в число, то вывести 0.
Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с...

Дан целочисленный массив размера*N. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести*0, если нет, то вывести поряд
Дан целочисленный массив размера*N. Проверить, чередуются ли в нем четные и нечетные числа. Если...

Дана строка, изображающая целое число. Вывести сумму цифр этого числа
дана строка, изображающая целое число. вывести сумму цифр этого числа. правильно ли будет в этой...

1
Puporev
Модератор
56587 / 43280 / 29921
Регистрация: 18.05.2008
Сообщений: 102,942
28.10.2016, 21:09 2
Лучший ответ Сообщение было отмечено petrovich228 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var n:real;
    m,s:integer;
begin
readln(n);
n:=abs(n);
if frac(n)=0 then
 begin
  m:=trunc(n);
  s:=0;
  while m>0 do
   begin
    s:=s+m mod 10;
    m:=m div 10;
   end;
  write('Сумма цифр=',s);
 end
else write(sqrt(n):0:2);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2016, 21:09

Для каждого слова в отдельной строке вывести YES если его можно сложить из печенья, и NO если нет
Вот условия задачи И снова знаменитые буквы из печенья поступили в продажу! Их можно не только...

число а лучше б, если сумма цифр а больше суммы цифр числа б, а в случае равенства сумм цифр, если число а мен
Программа должна быть написана с помощью вложенных циклов.число а лучше б, если сумма цифр а больше...

Если строка представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2
Помогите пожалуйста на ABC паскаль сделать задачу и блок-схему к ней: Дана строка. Если она...


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

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

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