Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Pascal ABC Проверить являются ли заданные три числа взаимно простыми Написать программу в паскаль абс и составить блок-схему https://www.cyberforum.ru/ pascalabc/ thread1571570.html Определить общее количество выигрышей проигрышей и ничьих команды Pascal ABC
В массиве записаны результаты 10 игр футбольной команды (рандомно 10 чисел от 1 до 3) если игра закончилась выигрышем данной команды, то записаны число 3, проигрышем 2 ,если игра окончилась вничью – 1. Определить общее количество выигрышей проигрышей и ничьих данной команды
Pascal ABC Укажите начальное значение и число шагов, необходимые для вычисления следующих величин Придумайте реккурентное соотношение, укажите начальное значение и число шагов, необходимые для вычисления следующих величин: (a-1)^m Добавлено через 2 часа 31 минуту Помогите пожалуйста https://www.cyberforum.ru/ pascalabc/ thread1571552.html Pascal ABC Элементы главной диагонали матрицы заменить максимальным элементом каждой строки в матрице А(10,10) элементы главной диагонали заменить максимальным элементом каждой строки в паскале авс https://www.cyberforum.ru/ pascalabc/ thread1571550.html
Определить, имеются ли среди прямых, заданных коэффициентами уравнений, совпадающие или параллельные Pascal ABC
Прямая на плоскости может быть задана уравнением ax + by = с, где a, b одновременно не равны нулю, а, b, с – целые. Пусть даны ко- эффициенты нескольких прямых a1, b1, c1, a2, b2, c2, ..., an, bn, cn. Опре- делите, имеются ли среди этих прямых совпадающие или параллель- ные. 		Pascal ABC Уплотнение матрицы влево и вверх https://www.cyberforum.ru/ pascalabc/ thread1571521.html
Уплотните матрицу А (n х n) влево и вверх. Для выявления ну- левых строк и столбцов используйте подпрограмму.
Pascal ABC Вывести на экран треугольник из звездочек Рисование символами. Символы должны отделяться пробелами.Выведите на экран: ***** *** *** ** * https://www.cyberforum.ru/ pascalabc/ thread1571504.html Напечатать все слова, которые состоят из тех же литер, что и последнее слово текста Pascal ABC
Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделённых пробелами. Слова представляют собой произвольную последовательность символов, отличных от пробела. Напечатайте все слова, которые состоят из тех же литер, что и последнее слово текста.
Pascal ABC Запись в файл https://www.cyberforum.ru/ pascalabc/ thread1571479.html
Здравствуйте, я написал модуль админа в котором происходит запись файла , но дело в том, что если я запишу в него и закрою , а потом еще раз запишу все прошлое исчезнет, проверить это можно через архив .Что не так , помогите пожалуйста. Program admin; Uses crt; type FIO=record Fam:string; Name:string; Otchestvo:string; dolchnost:string; end; 		Pascal ABC Создать базу данных с авторизацией и модулями https://www.cyberforum.ru/ pascalabc/ thread1571385.html
Здравствуйте! Нужно сделать базу данных с авторизацией и модулями. А)Авторизация Дальше идут модули: 1)Администратор действия: 1)Добавление пользователя(имя,фамилия,отчество,логин и пароль) 2)Удаление пользователя 3)Редактирование 4)Архивирование(Восстановление,удаление,очистить всё,история,поиск,фильтрация)
Pascal ABC Реализовать задачу, состоящую из нескольких модулей
Через GraphABC реализовать программу состоящую из нексольких модулей должна быть главная программа Авторизация с функцией управления стрелками там должно быть окна ввода пароля и логина с кнопкой войти и закрыть. Ещё должно быть несколько пользователей с разными привелегиями и несколько модулей в отдельных программах Админ(Добавление,удаление,редактирование,история,архив) Склад(принятый... 		Pascal ABC Решение задачи на правильность ввода числового пароля https://www.cyberforum.ru/ pascalabc/ thread1571347.html
Добрый вечер. Помогите пожалуйста с решением задачи в Pascal'е ABC. Вообще не понимаю как делать, напишите пожалуйста решение. Спасибо. Вот, собственно задача: Написать программу, которая проверяет правильность ввода числового пароля, пользователь может ввести пароль лишь 3 раза, а затем получит сообщение об ошибке, если введенный пароль неверный.
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
05.11.2015, 09:10 0

Определить сколько чисел, меньше заданного, содержат 2 единицы - Pascal ABC - Ответ 8294281

05.11.2015, 09:10. Показов 1296. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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

var n,rez:integer;
function k1_2(a:integer):boolean;
var i,k:integer;
begin
 k:=0;
 for i:=1 to 4 do
  begin
   if a mod 10 = 1 then inc(k);
   a:=a div 10
 end;
 if k=2 then k1_2:=true
        else k1_2:=false
end;
begin
 repeat write('1000<=n<=9999, n = ');readln(n);until (n>999)and(n<10000);
 rez:=0;
 for n:=1000 to n-1 do if k1_2(n) then inc(rez);
 writeln('rez: ',rez)
end.


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

Какова вероятность того, что сумма двух чисел больше единицы, а произведение меньше единицы?
Из отрезка (-1;2) наудачу взяты два числа. Какая вероятность что их сумма больше единицы, а...

Определить, сколько строк заданной матрицы A(N,M) содержат хотя бы одно число из заданного диапазона [p, q]
4. Определить, сколько строк заданной матрицы A(N,M) содержат хотя бы одно число из заданного...

Определить, сколько строк заданной матрицы A[5][5] содержат хотя бы один элемент из заданного числового диапазона
Определить сколько строк заданной матрицы A содержат хотя бы один элемент из заданного числового...

Определить через сколько лет стоимость оборудования станет меньше заданного значения
Извините, все, что отвлекаю, я в программировании полный 0, пыталась написать программу к задаче по...

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

Задан массив из n вещественных чисел. Определить, сколько чисел равны k, меньше k, больше k
Задан массив из n вещественных чисел. Определить, сколько чисел равны k, меньше k, больше k

Определить сколько членов последовательности надо перемножить чтобы произведение стало меньше заданного значения
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ, ПОЖАЛУЙСТА!!! Данная последовательность:...

Определить количество чисел, которые меньше заданного числа N
№1. Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. program...

Определить количество чисел, которые меньше заданного числа N
№1 Вычислить значения функции y=An/n для n, изменяющегося от 1 до 15, с шагом 1, A=2. №2...

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