|
|
| Другие темы раздела | |
|
Pascal ABC добрый вечер помгите с диаграммой на паскал АВС
https://www.cyberforum.ru/ pascalabc/ thread1075717.html нужно сделать чтобы отрисовывался по отдельности каждая диаграмма( полный круг)по очереди начиная с красного потом зеленый потом жотый в условия случайного изминения переменных массива и на circle(300,50,10);отрисовывался цвет тово сектора каторый сечас вырисовывается в данный момент чтото вроде индикатора состояний Program Diagrama; Uses crt, GraphAbc; Const b: array of string = ('загрузка... |
Создайте в pascal таблицу кубов всех четных чисел от нуля до пятидесяти Pascal ABC Cоставьте таблицу кубов всех четных чисел от 0 до 50 |
| Pascal ABC Создать форму с меню написать форму с меню в которой программа будет искать наибольший элемент в массиве. Буду безмерно благодарен https://www.cyberforum.ru/ pascalabc/ thread1075674.html | Pascal ABC Сформировать третью матрицу из элементов двух исходных Построчно ввести матрицу целых чисел 5х5 (любые целые числа), вторую матрицу заполнить случайными числами < 100 (матрица естественно тоже 5 на 5). Сформировать третью матрицу (тоже 5 на 5): каждый ее элемент принимает значение ‘истина’, если элемент первой матрицы больше соответствующего элемента второй, иначе - ‘ложь’. Program matrix; uses crt; const n=5; var a,b:array of integer; ... https://www.cyberforum.ru/ pascalabc/ thread1075652.html |
|
Правильно ли протабулировала функцию? Pascal ABC Правильно ли протабулировала функцию? program Zadacha4; const a = 2 ; b = 5; var z,x:real; begin x:=1; writeln(' Tabl '); writeln('-----------------------'); repeat |
Pascal ABC Вычислить функцию Правильно ли решена задача? program Zadacha3; const a = 2.8 ; b = 0.7 ; var y: real; k: byte; begin y:=0; //обнуление суммы for k:=1 to 15 do y:=y+ k*ln(b); y:=ln(a)* y; https://www.cyberforum.ru/ pascalabc/ thread1075534.html |
| Pascal ABC Вычислить значения функции. Правильно ли решена задача? Не знаю как записать Ln^2 (x). Правильно ли я сделала? program Zadacha2; var x, t: real; const b=5; x1=-3; x2=0; begin writeln('vvedite x'); readln(x); if (x<x1) and (x>=-5) then t:=b - sin(abs(x)) else https://www.cyberforum.ru/ pascalabc/ thread1075528.html |
Дана матрица А из N строк и N столбцов Pascal ABC Дана матрица A из N строк и N столбцов и последовательность С1, С2, ..., СN. Если среднее арифметическое СА элементов главной диагонали матрицы А меньше каждого из элементов С1, С2,..., СN, изменить матрицу А увеличением положительных ее элементов на величину СА и уменьшением отрицательных элементов на эту же величину. |
| Pascal ABC Выведите на экран все слова из К букв, в которых буква "Ы" встречается более 1 раза, и подсчитайте их количество Выведите на экран все слова из К букв, в которых буква "Ы" встречается более 1 раза, и подсчитайте их количество. https://www.cyberforum.ru/ pascalabc/ thread1075484.html |
Pascal ABC Среди целых чисел байтового диапазона, превышающих 200, найти числа, делящиеся на 3 или 7
https://www.cyberforum.ru/ pascalabc/ thread1075471.html Среди целых чисел байтового диапазона, превышающих 200, найти числа, делящиеся на 3 или 7, но не на обе эти цифры. |
|
Подсчитать, сколько футболистов, родившихся в период с 1998 по 2000 год, не забили мячей вообще Pascal ABC С клавиатуры вводится число N, обозначающее количество футболистов команды «Бублик», а затем – N строк, в каждой из которых – информация об одном футболисте таком формате: <Фамилия> <Имя> <год рождения> <голы> Все данные разделяются одним пробелом. Нужно подсчитать, сколько футболистов, родившихся в период с 1998 по 2000 год, не забили мячей вообще. |
Pascal ABC Найти сумму целых положительных чисел кратных 5 и меньших 50 Составить программу для решения следующей задачи: Найти сумму целых положительных чисел кратных 5 и меньших 50. помогите пожалуйста https://www.cyberforum.ru/ pascalabc/ thread1075396.html |
|
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
|
|||||||||||
| 19.01.2014, 18:48 | 0 | ||||||||||
Дано целое число a>9. Больше ли цифра десятков цифры единиц? - Pascal ABC - Ответ 566225319.01.2014, 18:48. Показов 3700. Ответов 1
Метки (Все метки)
 Сообщение было отмечено heyHOLLA как решение
Решение
например так:
Вернуться к обсуждению: Дано целое число a>9. Больше ли цифра десятков цифры единиц? Pascal ABC
1
|
|||||||||||
|
|
| 19.01.2014, 18:48 | |
|
Готовые ответы и решения:
1
Найти и вывести сумму всех хороших (цифра десятков больше, чем цифра единиц) элементов массива |
| 19.01.2014, 18:48 | |
|
Помогаю со студенческими работами здесь
0
Дано целое число. Определить является ли четной цифра десятков. Вывести "YES", если vopros на ответ положительный и "NO"
Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр Дано трехзначное число; найти в нем число тысяч, десятков и единиц |