Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal 11. Даны целые числа a1 a2, .... аn. Вывести на печать только те числа, для которых выполняется условие аi ≤ i. 11. Даны целые числа a1 a2, .... аn. Вывести на печать только те числа, для которых выполняется условие аi ≤ i. https://www.cyberforum.ru/ turbo-pascal/ thread311668.html Turbo Pascal Вывод текстового файла
Можете помочь с процедурой вывода файла по строкам в графическом режиме.Файл ТХТ находиться ниже. Для побудови равлики Паскаля досить намалювати коло W довільного радіуса R = a, вибрати на ній деяку точку А і почати обертати навколо точки А промінь АС. Якщо по обидві сторони від другої точки перетину променя АС з колом на промені АС відкладати відрізки, рівні радіусу вихідної кола (R = a), то...
Turbo Pascal нужна блок-схема к программе y=Arccos(x)-Arccos(2x)+Arccos(3x) Program My_Program; var y,x:real; function arccos(x:real):real; begin arccos:=arctan(sqr(x)+(1-sqr(x)))/x end; begin writeln('x='); https://www.cyberforum.ru/ turbo-pascal/ thread311658.html Turbo Pascal Составить программу перевода футов в метры (1 фут равен 0,3048 м) (счетчик цикла меняется от 1 до 30). https://www.cyberforum.ru/ turbo-pascal/ thread311641.html
Что я застрял на этих циклах, не знаю в чем причина, но выдает ошибку Вот что я написал,- Помогите пожалуйста довести дело до ума! program Project2; {$APPTYPE CONSOLE} var f,m,r:real; begin write('F= ');
Turbo Pascal Вывести на экран матрицу под ней вывести минимальное и максимально значение элементов
Помогите умне люди:curtsy: Вывести на экран матрицу под ней вывести минимальное и максимально значение элементов, и вывести сумму элементов главной и побочной диагонали
Turbo Pascal Дано натуральное число n. Выбросите из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Дано натуральное число n. Выбросите из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 59015509 должно получиться 919. Результат выведите на экран https://www.cyberforum.ru/ turbo-pascal/ thread311616.html
Turbo Pascal Создать текстовый файл и найти самое длинное слово в текстовом файле Создать текстовый файл и найти самое длинное слово в текстовом файле --- Mawrat: Посмотри этот код. Его можно приспособить для решения твоей задачи. https://www.cyberforum.ru/ turbo-pascal/ thread311610.html Определить есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. Turbo Pascal
Дан двумерный массив Х размерностью n*m заполняемый случайными числами. Определить есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. Определить произведение минимальных элементов в каждой сторке матрицы Х. МОИ НАБРОСКИ: program zadanie2; uses crt; var min,m,n,i,j:integer; x:array of integer; y:real; procedure zapolnenie;
Turbo Pascal Вычисление количества отрицательных значений списка Дан список А, состоящий из записей: первое поле - целое число, второе - адрес следующего элемента. Составить программу для вычисления количества отрицательных значений списка. https://www.cyberforum.ru/ turbo-pascal/ thread311598.html Turbo Pascal Множества Дан текст из цифр и строчных латинских букв, за которыми следует точка. Определить каких букв - гласных или согласных - больше в этом тексте. https://www.cyberforum.ru/ turbo-pascal/ thread311584.html
Turbo Pascal База даных
Не могу понять почему выдает ошибку вроде все правильно сделал:wall:. Блок с ошибкой выделен полужирным шрифтом. Вот програмный код, данные на поиск с отдельного файла BANK.txt {Основная программа} Uses CRT; Type TypeBank = Record Name : String; {Фамилия} Count : String; {Номер счета} Money : Real; {Сумма денег на счете}
Turbo Pascal Динамические структуры данных. Линейные списки.Очень срочно надо. https://www.cyberforum.ru/ turbo-pascal/ thread311575.html
Дан список А, состоящий из записей: первое поле- символ, второе - адрес следующего элемента. Составить программу, которая удаляет из списка А все элементы Е, если таковые имеются.
63 / 63 / 51
Регистрация: 20.05.2011
Сообщений: 116
03.06.2011, 15:38 0

Вывести на экран те числа, у которых сумма первых двух цифр равна сумме двух последних - Turbo Pascal - Ответ 1721664

03.06.2011, 15:38. Показов 6141. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program mas;
uses crt;
var b: array[1..10] of integer;
    I: integer;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  write('b[',i,']= ');
  readln(b[i]);
 end;
 for i:= 1 to 10 do
 if b[i] div 1000+b[i] div 100 mod 10=b[i] div 10 mod 10+b[i] mod 10 then writeln(b[i]);
 readln;
end.


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

Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму.
Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних,...

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

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

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

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

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

Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.
Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.

Установить, что сумма двух первых цифр равна сумме двух последних
Найти все трехзначные числа, удовлетворяющие условию: сумма двух первых цифр равно сумме двух...

Верно ли, что сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр
Помогите решить задачки: 1) Проверить истинность высказывания: "Сумма двух первых цифр данного...

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