Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Двумерный массив. Сформировать по условию Ребятушки помоги пожалуйста! сформировать и вывести на печать матрицу А , элементы которой заданы произвольно, кроме элементов расположенных в заштрихованной области (рисунок b ) и равных нулю.Найти и вывести на печать номер и элементы строки,имеющие наибольшее количество нулевых элементов.... вот рисунок https://www.cyberforum.ru/ pascal/ thread744152.html Pascal напечатать в возрастающем порядке все цифры
напечатать в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа n. с применением множеств. Pascal.
Pascal Сформировать массив С, являющийся объединением двух заданных Дан массив А из К элементов и массив В из М элементов. Сформировать массив С, являющийся объединением двух заданных, т.е. включить в него элементы, принадлежащие одному из массивов, добавив из второго те, что не вошли в первый. https://www.cyberforum.ru/ pascal/ thread744046.html Pascal Метод интерполяционного поиска https://www.cyberforum.ru/ pascal/ thread744017.html
Написать программу с подробным объяснением.
подпрограмма Pascal
Ребята помогите с прогой. У нас есть два подразделения(два массива) Y - 15 человек и G - 20 человек. На протяжении месяца они отработали какое то количество дней которое задано как y(n)=random(31) n= 1...15 g(k)=random(31) k= 1...20. Есть оплата труда d y.e. Налоговая ставка 20%(Это сделано) используя подпрограммы создать массиви Y, G, вивести их значение на экран и выполнить следующее задание ...
Pascal Найти все трехзначные числа, квадраты которых оканчиваются тремя одинаковыми цифрами, отличными от нуля Найти все трехзначные числа, квадраты которых оканчиваются тремя одинаковыми цифрами, отличными от нуля. Что нужно добавить что бы искало отличными от нуля? var i,j,k,l: integer; m: longint; begin for i:=1 to 9 do for j:=0 to 9 do for k:= 1 to 9 do https://www.cyberforum.ru/ pascal/ thread743972.html
Pascal Выскакивает ошибка https://www.cyberforum.ru/ pascal/ thread743937.html
Ошибка 201(проверка диапазона) . Помогите исправить var s,str,w:string; min,max:1..10; begin write('Vvedite slova: '); readln(str); s:=str; min:=10;
Дано n-значное число. найти сумму и произведение его цифр Pascal
Дано n-значное число. найти сумму и произведение его цифр.
Pascal Сформировать множества гласных и согласных букв Сформировать множества гласных и согласных букв, отсутствующих в тексте, вводимом с клавиатуры. Признак конца ввода - точка. сформировала те множесаа которые есть в тексте, а по условию задачи не получается, помогите пожалуйста. uses crt; const alf: set of char=; gl: set of char=; sg: set of char=alf-gl; https://www.cyberforum.ru/ pascal/ thread743892.html Pascal как работает счетчик count? правильная ли программа? var const N:= 20; L: array of Char; i, Count: Integer ; begin; for i:=1 to N do begin; if((L >= 'a') and (L <= 'z') ) then Count := Count + 1; end; writeln(Count) https://www.cyberforum.ru/ pascal/ thread743878.html
Итерационные вычисления Pascal
помогите найти ошибку var zn,el,ch,zh,x,y0,y,k,n,t: real; i,j: integer; eps:array of real; begin for i:=1 to 3 do begin writeln('Введите eps ',i); readln(eps);
Pascal Дан массив записей,представляющий собой прайс-лист косметического салона https://www.cyberforum.ru/ pascal/ thread743783.html
Дан массив записей,представляющий собой прайс-лист косметического салона.Установить,какая из процедур пользуется наибольшей популярностью. помогите пожалуйста, не пойму, где ошибка type cosmysluga=record nazvanie:string; people:byte; end; type mas=arrayof cosmysluga; var a:mas;
Платежеспособный зверь
8926 / 4354 / 1642
Регистрация: 28.10.2009
Сообщений: 11,568
25.12.2012, 00:45 0

Определить трехзначное число, обладающим свойством :число начинается цифрой 4 - Pascal - Ответ 3911610

25.12.2012, 00:45. Показов 2692. Ответов 1
Метки (Все метки)

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

Решение

Цитата Сообщение от trekalka Посмотреть сообщение
Определить трехзначное число, обладающим свойством :число начинается цифрой 4. Если эту цифру перенести в конец числа , получим число, составляющее 3/4 исходного числа. Вывести на печать оба числа.
Pascal
1
2
3
4
5
6
var
a:integer;
begin
for a:=400 to 499 do
if ((a mod 100)*10+4)*4=3*a then writeln(a,' ',(a mod 100)*10+4);
end.


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

число начинается и заканчивается одной цифрой
Помогите дописать... задание :Найти сумму цифр числа. (это записано) Правильно ли, что число...

Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой 4
Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой 4. Если эту...

Трехзначное число заканчивается цифрой 3. Найти это число
Трицыфровое число заканчивается цифрой 3. Если эту цифру переместить через два знака влево, то...

Трехзначное число начинается с цифры 7
Трехзначное число начинается с цифры 7. из него получили другое трехзначное число, переставив эту...

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

Определить, верно ли, что заданное число начинается и заканчивается одной и той же цифрой
Доброго времени суток. Совсем недавно начал изучать C#, нуждаюсь в помощи. Не могу решить данную...

Найти сумму цифр числа; определить, что число начинается и заканчивается одной и той же цифрой
с делфи ,сам не программист,но как предмет поставили.Очень надеюсь на вас Дано натуральное...

Проверить истинность высказывания: «Трехзначное число a начинается с цифр 9,1»
Дано целое число a . Проверить истинность высказывания: «Трехзначное число a начинается с цифр 9,1»

Проверить, верно ли, что трехзначное число начинается на 4 или оканчивается на 1
Написать программу выводящую true если значение переменной t ( логическая) истинно, и false в...

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