Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal В массиве из 20 элементов найти максимальный среди отрицательных https://www.cyberforum.ru/ turbo-pascal/ thread419029.html
В массиве из 20 элементов найти max элемент среди отрицательных, а из всех остальных элементов обраовать новый массив. массив одномерный.
Функции для работы с массивом Turbo Pascal
ребят выручайте пожалуйста!! дано задание написать программу на Turbo Pascal только ничего не понимаю к сожалению:( Суть задания: Целочисленный массив и его размерность. Функции: поэлементное вычитание двух массивов, вывод на экран M элементов массива, начиная с заданного номера k, массив из отрицательных элементов исходного массива, поиск номера первого ненулевого четного элемента,...
Turbo Pascal задача на фукции 12345 https://www.cyberforum.ru/ turbo-pascal/ thread419012.html Turbo Pascal Экзаменационная задача Помогите, ничего не понимаю что надо написать. Таблица (имя, группа, три оценки). Функции: поиск всех записей заданной группы, сортировка таблицы по сумме баллов, поиск всех, у кого хоть одна двойка. https://www.cyberforum.ru/ turbo-pascal/ thread419006.html
Turbo Pascal помогите найти ошибку.
Задание такое: на заданном отрезке вычислить значение сумм ряда с заданной точностью, а также вычислить значение функции. Количество точек произвольное. S=(x*x)/2 + (x^4/12) +...+ ((-1)^(n+1))*((x^2n)/2n(2n-1)) y=x*(arctan(x))-ln(sqrt(1+x*x)); я знаю, программный код введен неправильно, может я формулы неправильно написала, но помогите пожалуйста, прошу. Program lab; Const eps=1e-5;...
Turbo Pascal Создать массив из сумм элементов каждой строки матрицы https://www.cyberforum.ru/ turbo-pascal/ thread418993.html
Создать массив из сумм элементов каждой строки матрицы W
Turbo Pascal Текстовый файл,поиск синонимов https://www.cyberforum.ru/ turbo-pascal/ thread418989.html
Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 30 слов, которые разделены запятыми. Эти слова образуют пары: каждое второе является синонимом первого. Заменить в файле f1 те слова, которые можно заменить их синонимами. Результат поместить в новый файл.
Turbo Pascal Сортировка массива
В квадратной матрице, состоящей из вещественных чисел,упорядочить элементы главной диагонали по убыванию.
Turbo Pascal Напишите программу, пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread418981.html
Написать программу для вычисления значений функции Z = XYj / (X+Yj), если Х изменяется одновременно с Yj, от начального значения A с шагом H,Yj являются элементами массива K (j = 1 ; 20)
Turbo Pascal метод покоординатного спуска Люди добрые и умные,помогите чем можете!=) вот такая попалась мне задача: Разработать программу «Решение задачи оптимизации методом покоординатного спуска» Функциональные требования: • целевая функция имеет вид f(x)=a0*x^2 + a1*y^2 , найти значение параметров x и y, минимизирующих эту функцию, используя метод покоординатного спуска; • значения коэффициентов при x и y, значение свободного... https://www.cyberforum.ru/ turbo-pascal/ thread418978.html
Организовать на экране внешнее меню Turbo Pascal
Организовать на экране внешнее меню, позволяющее выбрать нужную задачу из 5 имеющихся и продемонстрировать результат её решения: (управление меню задается с помощью цифровой клавиатуры, предусмотреть защиту от неправильного ввода данных для каждой задачи вывод всех результатов задачи в корректной форме)
Turbo Pascal Записи. Структура: фамилия, возраст, № квартиры https://www.cyberforum.ru/ turbo-pascal/ thread418971.html
Создать список жильцов в доме. Описать и ввести массив, содержащий 10 записей следующей структуры: фамилия (отдельно Ф, И, О), возраст, № квартиры. Вывести массив в табличном виде. Вывести списки жильцов в алфавитном порядке с указанием квартир. Найти самого молодого жильца (жильцов).
43 / 43 / 33
Регистрация: 05.12.2011
Сообщений: 201
27.12.2011, 20:00 0

Подсчет количества двузначных чисел, сумма квадратов цифр которых делится на 13 - Turbo Pascal - Ответ 2335444

27.12.2011, 20:00. Показов 1832. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
i,j,k,l,rez:longint;
begin
  rez:=0;
  for i:=10 to 99 do begin
    j:=0;
    k:=0;
    l:=0;
    k:=i mod 10;
    l:=i div 10;
    k:=sqr(k);
    l:=sqr(l);
    j:=k+l;
    if j mod 13=0 then begin writeln(i);rez:=rez+1; end;
  end;
  writeln('количество: ',rez);
end.


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

Нахождение двузначных чисел, у которых сумма кубов цифр делится на 3 (постусловие)
составить программу нахождения двузначных чисел у которых сумма кубов цифр делиться на 3

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

Сколько существует двузначных чисел, сумма квадратов цифр которых делится на 13
2. Сколько существует двузначных чисел, сумма квадратов цифр которых делится на 13?

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
Не знаю как дописать основную часть программы #include <iostream> #include <cmath> #include...

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

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
Основные алгоритмические конструкции. Проверка условий. Циклы с параметром. Оператор выбора. ...

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
2.Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
Добрый день,подскажите пожалуйста код к заданию в Delphi: Среди двузначных чисел найти те, сумма...

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

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