Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Если число трёхзначное - вывести первую цифру этого числа, иначе последнюю Дано число N,если оно трёхзначное вывести первую цифру этого числа,если нет,то последнюю. https://www.cyberforum.ru/ pascalabc-net/ thread1836872.html Определить минимальное и максимальное из трех заданных чисел, записать их квадраты PascalABC.NET
Заданы 3 числа.Определить какое из них самое маленькое,а какое самое большое.Записать квадрат самого большого и самого маленького числа.
PascalABC.NET Не выводится минимальный элемент в двухмерном массиве Почему минимальный элемент всегда 0? Где в коде ошибка? var a: array of integer; max, min, i, j: integer; begin randomize; https://www.cyberforum.ru/ pascalabc-net/ thread1836708.html PascalABC.NET Написать модуль, который возводит в квадрат наименьший элемент двумерного массива https://www.cyberforum.ru/ pascalabc-net/ thread1836611.html
Написать модуль, который возводит в квадрат наименьший элемент двумерного массива. Помогите пожалуйста без всяких заморочек....!!!
Функция, возводящая число в n-ю степень PascalABC.NET
Написать программу которая возводит числа в n-ю степень , используя функцию
PascalABC.NET Произведение чисел, принадлежащих промежутку A, B и лежащих на главной диагонали матрицы и выше ее Вычислить произведение чисел , принадлежащих промежутку A,B и лежащих на главной диагонали и выше ее . (перепутал , это не через функцию) https://www.cyberforum.ru/ pascalabc-net/ thread1836472.html
PascalABC.NET Подсчитать сумму заданной строки и заданного столбца (с использованием модуля) Написать модуль который запрашивает колличество столбцов и строк двумерного массива и подсчитывает сумму заданной строки и заданного стобца . https://www.cyberforum.ru/ pascalabc-net/ thread1836468.html PascalABC.NET Вычислить бесконечную сумму ряда с заданной точностью e (0 < e < 1)
Вычислить бесконечную сумму с заданной точностью e (0<e<1) используя формулу S=\sum_{i=0}^{n}\frac{{x}^{2i}}{(2i)!}
PascalABC.NET Вывести слагаемое при котором сумма ряда превышает 1000 https://www.cyberforum.ru/ pascalabc-net/ thread1836271.html
Буду благодарен .
PascalABC.NET Введите с клавиатуры 9 чисел и определите их среднее арифметическое что не так ?выдает ошибку program aes; var sr,a,sum,i:integer; begin sum:=0; i:=0; for i:=1 to 9 do begin writeln('введите число:'); https://www.cyberforum.ru/ pascalabc-net/ thread1836258.html
PascalABC.NET Напечатать таблицу истинности бинарных логических операций (and, or, xor)
напечатать таблицу истинности бинарных логических операций and, or, xor. Мысли бегаю как делать, но никак не могу....пожалуйста напишите задачу.
PascalABC.NET Не выполняется последняя строка кода var n,m,k,i,j,a:integer; {i - кол-во выстрелов. j - то что нам позволяет стрелять через клетки. a - это счётчик пройденных столбиков. должен... https://www.cyberforum.ru/ pascalabc-net/ thread1836242.html
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
28.10.2016, 21:09 0

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

28.10.2016, 21:09. Показов 1315. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Если число целое,то вывести сумму его цифр,если нет,то вывести корень квадратный из модуля числа PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2016, 21:09
Готовые ответы и решения:

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

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

Дано натуральное число N. Если все его цифры стоят в числе по убыванию, вывести True, если нет – вывести False
Помогите решить задачу с применение цикла while

Ввести число. Если оно положительное, найти его квадратный корень. Если отрицательное - возвести в квадрат
Ввести число. Если оно положительное, найти его квадратный корень. Если отрицательное - возвести в...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2016, 21:09

While4°. Дано целое число N (> 0). Если оно является степенью числа 3, то вывести true, если не является — вывести false.
While. Дано целое число N (&gt; 0). Если оно является степенью числа 3, то вывести true, если не...

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

Дано целое число N(>0). Если оно является степенью числа 3, то вывести TRUE, если не является-вывести FALSE.
Дано целое число N(&gt;0). Если оно является степенью числа 3, то вывести TRUE, если не...

Дано целое число N>0.Если оно являеться степенью числа 3, то вывести True,если не являеться-вывести false.
:(ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ!!!!!!!!!!!!!

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