Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Дано восьмизначное число. Найти наибольшую цифру в числе https://www.cyberforum.ru/ pascalabc/ thread651087.html
ребят, в вузе задали решить несколько задач на паскале. Помогите. 1. Дано восьмизначное число. Найти наибольшую цифру в числе. Заранее спасибо! 		Pascal ABC Решение задачи Белоснежка и N гномов
Всем добра! Столкнулся с такой задачей : «Ну не гномы, а наказание какое-то!», – подумала Белоснежка, в очередной раз пытаясь уложить гномов спать. Одного уложишь – другой уже проснулся! И так всю ночь. У Белоснежки n гномов, и все они очень разные. Она знает, что для того, чтобы уложить спать i-го гнома нужно ai минут, и после этого он будет спать ровно bi минут. Помогите Белоснежке...
Pascal ABC Определить, попадает ли точка в заштрихованную область Доброго времни суток, прошу помочь с решением задачи на языке Pascal ABC, ниже будет находится условие и график задачи задача состоит в том что вводится координата, если она попала в заштрихованную область выводим "входит", если нет то нет. Мой уровень знания паскаля непозволяет решить задачу, но я думаю вы мне поможите в решении данной задачи. Заранее спасибо. https://www.cyberforum.ru/ pascalabc/ thread651004.html Pascal ABC Написать функции вычисления максимального и минимального элемента массива, обмена их местами 2.Сформировать одномерный массив считыванием данными из файла. Написать функции вычисления максимального и минимального массива, и обмена их местами. https://www.cyberforum.ru/ pascalabc/ thread651000.html
Pascal ABC Сложная структура данных: Сведения о работе предприятия
если не понятно, смотрите вложенный файл Сведения о работе предприятия содержат: наименование предприятия, товарную продукцию и среднюю численность промышленного персонала. Число предприятий не более 30. Определить производитель-ность труда для каждого предприятия и среднюю по области, выявить предприятие с низшей производительностью труда. Подготовить и распечатать таблицу: Сведения о... 		Pascal ABC Описание процедур в игре "Сбей самолет" https://www.cyberforum.ru/ pascalabc/ thread650867.html
Доброго времени суток. Нужна Ваша помощь друзья :) Прошу объяснения по работе каждой процедуры данной программы, разобраться самому, увы, до конца не получилось, уровень знаний языка пока еще не тот. Буду благодарен любой Вашей помощи в данном вопросе. С уважением. uses ABCObjects,Events,GraphABC,Timers,Utils; {Î Ï È Ñ À Í È Å Ï Å...
Pascal ABC Найти все совершенные числа от 1 до 100 1. Найти все совершенные числа от 1 до 100. pashqa`, вновь обращаю ваше внимание на правила форума: для каждой задачи создавайте отдельную тему. https://www.cyberforum.ru/ pascalabc/ thread650862.html Pascal ABC Посчитать символы в строке
Здравствуйте. Помогите пожалуйста с такой задачей: Дана строка. Нужно посчитать и вывести на экран количество каждого символа этой строки. Например дано слово "Программирование.", вывести "Точка = 1 раз, п - 1 раз, р - 3 раза" и т.д. Заранее спасибо)
Pascal ABC Графика в паскале: нарисовать девочку https://www.cyberforum.ru/ pascalabc/ thread650769.html
Здравствуйте! Люди, помогите пожалуйста нарисовать в паскале вот такую девулю. У нас PascalABC. Заранее большое спасибо! 		Pascal ABC Составить программу решения задачи коммивояжера https://www.cyberforum.ru/ pascalabc/ thread650731.html
Составить программу решения “задачи коммивояжера”. Необходимо определить мини-мальную стоимость проезда коммивояжера по N городам с возвращением в исходную точку. Каж-дый город входит в маршрут только один раз. Предположить, что стоимость проезда из города i в город j такая же, как и из j в i.
Вывести сумму чисел от 1 до n Pascal ABC
Вывести сумму чисел от 1 до n. Программу выполнить циклом "до" (repeat-until)/ 		Pascal ABC Вывести в порядке возрастания все целые числа, расположенные между А и В https://www.cyberforum.ru/ pascalabc/ thread650671.html
Даны два целых числа А и В (А < В). Вывести в порядке возрастания все целые числа, расположенные между А и В (в том числе А и В), а также кол-во N этих чисел. Задачу решить циклом N раз (циклом с параметром).
424 / 424 / 338
Регистрация: 25.06.2012
Сообщений: 668
13.09.2012, 07:44 0

Найти количество кратных трем двузначных чисел последовательности - Pascal ABC - Ответ 3444449

13.09.2012, 07:44. Показов 3303. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено YaDimkoo как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

uses crt;
var
  n, a, count : integer;
begin
Write('Количество вводимых чисел: ');
Readln(n);
count := 0;
Writeln('Введите ', n, ' чисел: ');
while n <> 0 do
 begin
 Readln(a);
 if (a mod 3 = 0) and (a > 9) and (a < 100) then inc(count);
 dec(n);
 end;
Writeln('Количество двузначных чисел кратных трем: ', count); 
end.


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

Найти сумму и количество всех двузначных чисел кратных пяти
Не могу решить задачу, 4 пары сидел над ней, помогите. Условие: Найти сумму и количество всех...

Вычислите количество всех двузначных чисел кратных 6
1. Вычислите количество всех двузначных чисел кратных 6.

Вычислите количество всех двузначных чисел кратных 6
вычислите количество всех двузначных чисел кратных 6 в pascal

Определить количество двузначных чисел, кратных 5 (проверить)
Напишите программу, которая в последовательности целых чисел определяет количество двузначных...

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

Определить количество отрицательных чисел и сумму чисел, кратных трем
1 задание) ​Задан целочисленный массив К (N). Ввести массив в столбец, а вывести в строку с...

Найти произведение двузначных нечетных чисел, кратных 13
Найти произведение двузначных нечетных чисел, кратных 13. Должно присутствовать arrey и randomize....

Найти сумму натуральных четных двузначных чисел, кратных 3
1. Найти сумму натуральных четных двузначных чисел, кратных 3. 2. Получить значения функций...

Вводятся N чисел. Найти среднее значение чисел, кратных трем.
Прошу решить 2 задачи(В Pascal ABC). Я начинающий, не очень понимаю пока. 1. Составить значение...

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