Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Даны две тройки вещественных чисел. Найти среднее арифметическое максимумов каждой тройки https://www.cyberforum.ru/ pascalabc-net/ thread2533427.html
Формат ввода: В первой строке - первая тройка чисел (три числе через пробел), во второй строке - вторая тройка чисел. Формат вывода: Найденное среднее с точностью 3 знака после запятой. Пример входных данных
Что будет напечатано на экране в результате выполнения следующего фрагмента программы PascalABC.NET
x := 2; y := 2; if x > y then if x > 0 then write(1) else write(2) else write(3);
PascalABC.NET Что будет напечатано на экране в результате выполнения следующего фрагмента программы https://www.cyberforum.ru/ pascalabc-net/ thread2533409.html
x := 100; y := 10; if x > y then begin if x > 0 then if y > 0 then write(1) else write(2) end else write(3);
PascalABC.NET Работа с файлами https://www.cyberforum.ru/ pascalabc-net/ thread2533325.html
Помогите сделать зараниее спасибо Считать из файла в двумерный массив список людей, содержащий: 1. Номер по порядку 2. Фамилию 3. Имя 4. Год рождения 5. Знак зодиака Затем, по запросу пользователя, выдать все строчки с совпадением запроса.
Считать из файла в двумерный массив список людей PascalABC.NET
Считать из файла в двумерный массив список людей, содержащий: 1. Номер по порядку 2. Фамилию 3. Имя 4. Год рождения 5. Знак зодиака Затем, по запросу пользователя, выдать все строчки с совпадением запроса. Т.е., если пользователь ввёл "Василий" то должен увидеть на экране всех Василиев, если ввёл "1934" должен увидеть всех родившихся в 34 году, а если ввёл "Водолей", то всех водолеев....
PascalABC.NET Составить подпрограмму подсчета суммы значений элементов в одномерном массиве Задание было: "Составить подпрограмму подсчета суммы значений элементов в одномерном массиве. С помощью этой подпрограммы подсчитать суммы элементов столбцов произвольно заданной двухмерной матрицы и вывести номер столбца с минимальной суммой.", но уже второй час мучаюсь с ошибкой в 37 строчке "Нельзя преобразовать тип integer к array of integer". const imax=3; jmax=6; min=-100; ... https://www.cyberforum.ru/ pascalabc-net/ thread2533062.html
PascalABC.NET Представить введенное число в машинном виде с использованием 4 байтового представления https://www.cyberforum.ru/ pascalabc-net/ thread2533015.html
Помогите, пожалуйста, исправить код. Отрицательные числа высчитываются верно, а положительные нет. var x: array of integer = (0,0,0,0,0,0,0,0); b:array of integer; i,n,c,k,o,h,s,q:integer; a,d:real; begin read(a); writeln('Число:');
PascalABC.NET Нужно объяснение каждой строки
//Вычислить S=1!+2!+3!+4!+...+n! (n>1). Дано натуральное число n. Всем привет! Мне нужна помощь! Объясните пожалуйста. var n,a,b:integer; s:real; begin writeln('Введите n'); readln(n); s:=1; b:=1; a:=2;
PascalABC.NET Вводится промежуток от k до n https://www.cyberforum.ru/ pascalabc-net/ thread2532813.html
Вводится промежуток от k до n. Задача суммировать первую и последнюю цифру каждого числа и вывести сумму этих сумм, хд. Пример: Ввод: 59004 59006 Вывод: 30 (9 + 10 + 11 = 30)
PascalABC.NET Требуется напечатать по одному разу все варианты размена N монетами суммы в S рублей https://www.cyberforum.ru/ pascalabc-net/ thread2532653.html
Вводятся два натуральных числа - N и S. Требуется напечатать по одному разу все варианты размена N монетами суммы в S рублей. Варианты, отличающиеся только порядком монет, считаются одинаковыми. Каждый вариант должен быть напечатан на отдельной строке. Имеются в неограниченном количестве монеты достоинством 1, 2, 5, 10 рублей.
Как исправить следующую ошибку? PascalABC.NET
Написал следующий код для общего понимания, он возводит в степень необходимое число, но для больших чисел (больших чем позволяет переменная int64) он не работает. Если использовать biginteger, то выдает ошибку. Как это можно исправить? (p.s. все должно остаться особенно цикл for, так как в другом коде его никак не заменить, здесь он, чтобы лишь понять как можно это реализовать для больших чисел)...
PascalABC.NET Вычислить сумму ряда с заданной точностью https://www.cyberforum.ru/ pascalabc-net/ thread2532347.html
Добрый вечер. Требуется помощь в решении двух задач. Условие 2-й задачи напишите в отдельной теме.
Эксперт Pascal/Delphi
6807 / 4565 / 4818
Регистрация: 05.06.2014
Сообщений: 22,438
19.11.2019, 14:20 0

Дано целое число. Определить является ли четной цифра десятков. Вывести "YES", если vopros на ответ положительный и "NO" - PascalABC.NET - Ответ 14009772

19.11.2019, 14:20. Показов 589. Ответов 1
Метки (Все метки)

Ответ

Цитата Сообщение от Андре123131 Посмотреть сообщение
Определить является ли четной цифра десятков
Pascal
1
2
3
4
5
6
7
var
  n: integer;
 
begin
  readln(n);
  writeln(not odd((n mod 100) div 10));
end.


Вернуться к обсуждению:
Дано целое число. Определить является ли четной цифра десятков. Вывести "YES", если vopros на ответ положительный и "NO" PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2019, 14:20
Готовые ответы и решения:

"Дано трехзначное число. Определить входит ли в него цифра 4."
Надо решить "Дано трехзначное число. Определить входит ли в него цифра 4."

Если С - цифра, то вывести "digit', если латинская буква, то 'lat', если русская - вывести "rus"
Здравствуйте , помогите с задачей ... Вообще сам ничего не могу сообразить(( . Условие: Дан символ...

Если в тексте есть цифра "2", то каждый символ перед этой цифрой заменить на букву "а"
Помогите пожалуйста с задачкой в Паскале. Дан текст. Если в нем есть цифра 2, то каждый символ...

Дано целое число в диапазоне 100-900. Вывести в строку описание данного числа, например: 256 - "двести пятьдесят шесть"
Дано целое число в диапазоне 100-900. Вывести в строку описание данного числа, например: 256 -...

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

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и...

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща",...

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".
Немогу написать программу. В заданной последовательности литер, состоящей из букв латинского...

Ввести слово, вывести "ДА" если первый и последний символ совпадает, в противном случае вывести "НЕТ"
Ввести слово, вывести "ДА" если первый и последний символ совпадает, в противном случае вывести...

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