Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Вычисление суммы сходящегося знакопеременного ряда с факториалом https://www.cyberforum.ru/ pascal/ thread2048097.html
Подскажите пожалуйста, как найти сумму ряда: y=\sum_{k=1}^{n}\frac{(-1)^k(k+1)}{(2k+1)!} Собственно основная проблема состоит в вычислении знаменателя, представленного в виде (2k+1)! вкупе с остальным выражением. Заранее большое спасибо!
Pascal Метод хорд
Здравствуйте! Моя задача состоит в том, что бы составить метод хорд на паскале(использую и авс и авс.net). Но она не считает. Где я ошиблась? Входные данные: x0=0,x1=1,m=3, e=0.001 program Metod_hord; var x,x0,x1,m,eps:real; function f(x:real):real; begin f:=exp(ln(2)*x)-4*x; end; begin writeln('x0,x1,m,eps'); read(x0,x1,m,eps);
Pascal Как в записать arccos y^2? https://www.cyberforum.ru/ pascal/ thread2047455.html
как в pascal записать arccos y^2
Pascal Результат сложения в 8 битном коде Найдите результат сложения десятичных чисел -87 и -79 в 8-битном дополнительном коде. Проведите анализ результата (положительный или отрицательный, верный или неверный). В поле ответа впишите 8-битный код результата. Найдите результат сложения десятичных чисел -36 и -71 в 8-битном дополнительном коде. Проведите анализ результата (положительный или отрицательный, верный или неверный). В поле... https://www.cyberforum.ru/ pascal/ thread2047306.html
Pascal Что будет выведено на экран?
Дана программа на Паскале. Первая строка программы отключает проверку выхода за границы разрядной сетки. Shortint - целый знаковый тип (1 байт). {$R-} var a, b, c: shortint; begin a:=-112; b:=-45; c:=a+b; writeln (c); end. Что будет выведено на экран?
Pascal Криптосистема без передачи ключей написать прогу,альфа и бета известны,ввод с клавиатуры https://www.cyberforum.ru/ pascal/ thread2047300.html
Pascal Как перевести из строкового типа в integer https://www.cyberforum.ru/ pascal/ thread2047109.html
Как перевести столбец строкового типа в integer. функция Val не получается (смотрела я на данном форуме всевозможные варианты), так как там есть символы. Строка представлена на картинке Надо ее точь в точь перевести в целочисленный тип. Можно лишь убрать первые + в каждой строке Спасибо
Pascal Найти суммарный объем содержимого шарообразных резервуаров по их радиусам и уровням наполнения
При заданных R1, R2, ..., Rn и H1, H2 ... Hn Найти суммарный объем горючего хранящегося в n шарообразных резервуарах, если Rk - внутренний радиус k-го резервуара, а H определяет уровень наполнения по отношению к низшей точке дна. Объем соответствующего сегмента равен RHk^2(Rk-(Hk/3) Наворотил такого, но не уверен в правильности моих суждений var R,H:integer; k,n,k:real; begin k:=0;...
Pascal пожалуйста составить программу. вариант 10 https://www.cyberforum.ru/ pascal/ thread2047011.html
https://www.cyberforum.ru/attachment.php?attachmentid=868934&stc=1&d=1506801900
Pascal Найти значение модуля |ax-b| при заданных a, b - вещественных числах Нахождение значения модуля |ax-b| при заданных a, b - вещественных числах. Помогите написать код пожалуйста, очень срочно надо https://www.cyberforum.ru/ pascal/ thread2046478.html
Записать по правилам языка программирования заданную формулу Pascal
Составить программу вычисления значений по ней для Х, принадлежащих отрезку \sqrt{\rho^2 - x^2 + (1/e) } + \tanh (x-1)/x + 1/7 Приветствую. В принципе, я уже все понимаю, кроме того, как корректно возводить в степень сам корень и числа. Читал, что a^b можно представить как exp(ln(a)*b), но не уверен в правильности такого решения. Еще непонятно, стоит ли таким способом возводить сам...
Pascal Вывести первый нечётный элемент массива Нужно создать программу которая выводит первый нечётный элемент(тема массив) https://www.cyberforum.ru/ pascal/ thread2045068.html
Модератор
9873 / 5241 / 3306
Регистрация: 17.08.2012
Сообщений: 16,011
03.10.2017, 13:07 0

Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15 - Pascal - Ответ 10799206

03.10.2017, 13:07. Показов 4291. Ответов 3
Метки (Все метки)

Ответ

Вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var i, j: integer;
begin
  i := 1;
  repeat
    j := 0;
    repeat
      if (i * i + j * j) mod 15 = 0 then writeln(i, j);
      inc(j)
    until j > 9;
    inc(i)
  until i > 9
end.


Вернуться к обсуждению:
Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15 Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.10.2017, 13:07
Готовые ответы и решения:

Найти все двузначные числа, сумма квадратов цифр которых кратна 4
Найти все двузначные числа, сумма квадратов цифр которых кратна 4. (написать программу. ) с...

Найти все двузначные числа, сумма квадратов цифр которых кратна 5
Найти все двузначные числа, сумма квадратов цифр которых кратна 5.

Найти все трехзначные числа, сумма квадратов цифр которых кратна заданному числу m
Задача: Найти все трехзначные числа сумма квадратов цифр, которых кратна заданному числу m....

Найти все натуральные трехзначные числа, сумма цифр которых кратна заданному натуральному числу B и само число также дел
Составить программу на языке Паскаль: Найти все натуральные трехзначные числа, сумма цифр которых...

3
03.10.2017, 13:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.10.2017, 13:07
Помогаю со студенческими работами здесь

Найти все двузначные числа, сумма квадратов цифр которых кратна М
Найти все двузначные числа, сумма квадратов цифр которых кратна М.

Найти все двузначные числа, сумма квадратов цифр которых кратна числу 5
Найти все двузначные числа, сумма квадратов цифр которых кратна числу 5

Найти все двузначные числа, сумма квадратов цифр которых кратна числу M
вот:-[ Найти все двузначные числа, сумма квадратов цифр которых кратна числу M, введенному...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru