Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Andr1055
0 / 0 / 0
Регистрация: 26.10.2014
Сообщений: 10
#1

Задача с оператором цикла на нахождение числа - Pascal ABC

26.10.2014, 14:47. Просмотров 311. Ответов 1
Метки нет (Все метки)

Сумма квадратов цифр некоторого двузначного числа на 1 больше утроенного произведения этих цифр. После деления этого двузначного числа на сумму его цифр в частном получается 7 и в остатке 6. Составить алгоритм поиска этого числа, если оно существует
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2014, 14:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задача с оператором цикла на нахождение числа (Pascal ABC):

задания с оператором цикла For - Pascal
№1 ВЫЧИСЛЕНИЕ ПРОИЗВЕДЕНИЯ ЭЛЕМЕНТОВ ПОСЛЕДОВАТЕЛЬНОСТИ p=\frac{1}{1}*\frac{3}{2}*\frac{5}{3}*...*\frac{2n-1}{n} №2 а эта...

любым оператором цикла - Pascal

Разработать программу с оператором цикла - Pascal ABC
Помогите пожалуйста с задачкой Разработать программу с помощью оператора цикла которая будет выводить следующую последовательность чисел...

Блок-схема с оператором цикла. - Pascal
Дана задача: Дан одномерный массив В элементы которого формулируются по формуле Bi=i sin i,где i-номер элемента в массиве В .Подсчитать...

Табулирование функции с оператором цикла - Pascal ABC
Используя операторы Паскаль-"Пока" и "До" составить программы табулирования функции y=f(x) на отрезке с шагом h=b-a/m , где m=15, a=π/8,...

Не могу розобратся с оператором цикла repeat - Pascal ABC
Program Third; var a, b, x, Y : Double; begin a:=0.47; b:=0.56; x:=0; repeat x:= x+0.07; Y:=...

1
vint-81
охотник
1008 / 532 / 355
Регистрация: 29.09.2014
Сообщений: 1,083
26.10.2014, 15:50 #2
Pascal
1
2
3
4
5
6
7
8
9
var i,n:integer;
begin
 i:=9; 
 repeat
 inc(i)
 until (((sqr(i div 10)+sqr(i mod 10))=(1+3*((i div 10)*(i mod 10))))and
       (i div((i div 10)+(i mod 10))=7)and(i mod((i div 10)+(i mod 10))=6)) or (i>99);
 if i<100 then writeln(i)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2014, 15:50
Привет! Вот еще темы с ответами:

написать алгоритмическую программу на паскале,с оператором цикла предусловия while! - Pascal
чтобы получилась теплая вода, в ведро наливают литр холодной,литр кипяченой воды.

Задача с оператором CASE. - Pascal
Составить программу , которая бы реализовала следующий алгоритм работы светофора. 1-зелёный, 2-жёлтый, 3-красный. Названия цветов выделите...

Нахождение суммы ряда с помощью цикла For - Pascal ABC
Задание 1. (Нахождение суммы ряда с помощью цикла For…) По заданной формуле члена ряда с номером k составить блок-схему и программу...

Задача на оператор цикла - Pascal
помогите в решение задачи...всем заранее спасибо за помощ.. Вичислить значение функции у=(4х вкубе)-(2х квадрат)+5 для значения х ,...


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

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

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