PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Зачем придумали и используют массивы? https://www.cyberforum.ru/ pascalabc-net/ thread1617339.html Здравствуйте , уважаемые члены форума ! У меня глупый вопрос , зачем придумали и используют массивы ?	PascalABC.NET Анимация летящего самолета program z1; uses graphABC; var i,x:integer; begin setwindowsize(1000,1000); setpenwidth(5); i:=200; for x:=0 to 399 do
PascalABC.NET Модуль: подсчитать сумму заданной строки и заданного столбца матрицы https://www.cyberforum.ru/ pascalabc-net/ thread1617241.html Написать модуль, который запрашивает количество столбцов и строк двумерного массива и подсчитывает сумму заданной строки и заданного столбца ============================================================== Буду очень благодарен если кто-нибудь решит=)	PascalABC.NET По 5-элементным целым массивам х и у вычислить https://www.cyberforum.ru/ pascalabc-net/ thread1617207.html По заданным 5-элементным целым массивам вычислить: \sum_{j=1}^{5}x\left*y\left>0 если да то \sum_{j=1}^{5}x{\left}^{2} если нет то \sum_{j=1}^{5}y{\left}^{2}
Довести программу до ума PascalABC.NET Доброго времени суток! В задании написано: составить программу для вычисления степеней чисел вида an, если a>maxint, n>10. Я попробовал создать программу, наисправлял, но результат не тот, что нужен. В выводе пишет, что любое число в любой степени равняется нулю. Что я делаю не так? Помогите пожалуйста. var i, a, n, z: integer; begin writeln('введите число: '); readln(a); ...	PascalABC.NET Определить количество слов, чтобы задействовать все буквы русского алфавита https://www.cyberforum.ru/ pascalabc-net/ thread1617087.html Вводится последовательность слов. Определите, какое количество слов потребуется, чтобы задействовать все буквы русского алфавита. Ввод слов заканчивается, когда задействованы все буквы.
PascalABC.NET Анимация пара из чайника https://www.cyberforum.ru/ pascalabc-net/ thread1617027.html Есть готовый рисунок в паскале. Нужно сделать анимацию(как выходить пар, как движется крышка чайника...). Сделайте пожалуйста, сам пробовал, ничего не вышло. Код: Program CHAINIK; uses graphABC; begin setwindowsize(350,300); setpenwidth(3);	Необходимо довести прогу до ума (окно вывода crt и блокировка ввода) PascalABC.NET Всем привет. Прошу помочь в следующей проге: uses crt; var m: integer; sum, sum1: integer; k: char; sr1: real; a: array of integer; procedure gen(m: integer); var
PascalABC.NET Нахождение угла по его синусу https://www.cyberforum.ru/ pascalabc-net/ thread1616993.html Как найти x, если известно, чему равен sin(x)?	PascalABC.NET Найти в каждом столбце количество тех элементов, которые начинаются и заканчиваются на одну и ту же цифру Дан произвольный двумерный массив целых чисел. Размерность 4 на 6. Найти и вывести в каждом столбце отдельно количество тех элементов, которые начинаются и заканчиваются на одну и туже цифру. СРОЧНО ЗАРАНЕЕ СПАСИБО!!!!!!!!!!!!!!!! https://www.cyberforum.ru/ pascalabc-net/ thread1616922.html
Написать модуль, который подсчитывает сумму третьей строки матрицы PascalABC.NET Очень надо)	PascalABC.NET Вывести все трехзначные натуральные числа, сумма цифр которых равна заданному числу (через repeat) https://www.cyberforum.ru/ pascalabc-net/ thread1616667.html Написать программу,которая выводит все трех значаные натуральные числа,сумма цифр которых равна заданному числу N(обязательно через Repeat)

Vadim1705

10 / 10 / 7

Регистрация: 25.10.2015

Сообщений: 47

18.12.2015, 16:05

Проверьте, можно ли представить число в виде суммы двух квадратов натуральных чисел. Написать программу - PascalABC.NET - Ответ 8509187

18.12.2015, 16:05. Показов 2153. Ответов 1

Метки (Все метки)

Сообщение было отмечено ImpUlSe_new52 как решение

Решение

Pascal

var a,b:integer;
s:boolean;
begin;
s:=false;
readln(a);
for var i:=1 to round(sqrt(a)) do begin;
if a-i*i>0 then begin;
if sqrt(a-i*i)=round(sqrt(a-i*i)) then begin;
s:=true;
b:=i;
break;
end;
end;
end;
if s then writeln('YES ',b,' ',sqrt(a-b*b)) else writeln('NO');
end.

Вернуться к обсуждению:
Проверьте, можно ли представить число в виде суммы двух квадратов натуральных чисел. Написать программу PascalABC.NET

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.12.2015, 16:05

Готовые ответы и решения:

Определить, можно ли представить число в виде суммы трёх квадратов натуральных чисел
Помогите, пожалуйста, решить задачу. Дано натуральное число n. Можно ли представить его в виде...

Написать программу, которая проверяет – можно ли представить заданное число в виде суммы последовательных чисел
Написать с использованием процедуры программу Написать программу, которая проверяет – можно ли...

Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел?
1.Составить блок-схему "Гороскоп"(по месяцу выдает количество дней в месяце). 2. написать...

Можно ли представить число в виде суммы квадратов трех натуральных чисел
Дано натуральное число N. Можно ли его представить в виде суммы квадратов трех натуральных чисел

	18.12.2015, 16:05

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.12.2015, 16:05

Помогаю со студенческими работами здесь

Найти все числа, которые можно представить в виде суммы квадратов двух натуральных чисел.
Дано натуральное число n. Среди чисел 1,2, …, n найти все те, которые можно представить в виде...

Сколькими способами заданное натуральное число N можно представить в виде суммы двух кубов натуральных чисел
Собственно, нужна помощь. Сколькими способами заданное натуральное число N можно представить в...

Написать программу нахождения всех натуральных чисел, которые можно представить в виде произведения двух простых чисел
Дано натуральное число Р. Написать программу нахождения всех натуральных чисел, не превосходящих Р,...

Представить число в виде суммы натуральных чисел
дано натуральное n число, найти все способы в виде натуралных чисел, без процедуры помог. ...

Наверх