Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Ввод чисел, количество которых заранее не известно как можно ввести неизвестное число чисел? https://www.cyberforum.ru/ pascalabc/ thread194352.html	Определить количество простых чисел в промежутке чисел от m до n Pascal ABC Так задача такая: Определить количество простых чисел в промежутке чисел от m до n, и вывести их. Проблема в том что не выводит что надо!!! program zd; uses crt; var m,n,i,k,p,g:integer; s:boolean; begin clrscr;
Pascal ABC Вывести в порядке возрастания все целые числа расположенные между А и В {Даны два целых числа А и В(АВ) Вывести в порядке возрастания все целые числа расположенные между А и В(включая сами числа А и В) а также количество N этих чисел } https://www.cyberforum.ru/ pascalabc/ thread194242.html	Pascal ABC Король и ферзь На шахматной доске находится король и два ферзя, шахматная доска задается массивом K(8;8) 1 это король, 2 это ферзь, 0 это пустые клетки, Проверить и вывести на экран угрожает ли ферзь королю. Прграмку пишу на Pascal ABC. Помогите пожалик P.S За ранние спасибо. https://www.cyberforum.ru/ pascalabc/ thread194162.html
Pascal ABC Вывести стоимость 10 кг конфет Помогите решить пожалуйста,у меня сейчас идет практика.	Pascal ABC Определить, сколько раз цифра 5 встречается в целом числе Помогите пожалуйста решить. Сколько раз цифра 5 встречается в целом числе (использовать функцию) https://www.cyberforum.ru/ pascalabc/ thread194120.html
*Pascal ABC Вычислить сумму положительных элементов в массиве B[54]** https://www.cyberforum.ru/ pascalabc/ thread194111.html Народ нужна ваша помощь!!!! Вычислить сумму положительных элементов в массиве B	Pascal ABC Бинарное дерево, нерекурсивный обход в этом коде 3 проблемы 1)удаляет криво.в начале нормально а потом начинает значения "клонировать" 2)надо реализовать не рекурсивный обход.единсвенная пришедшая мысль - загонять элементы в стек.не записываются элементы и выводит типа nil #501 и т.п. 3)смещается при выводе(не особо важно) help:cry: uses graphabc;
Pascal ABC Сформировать массив, содержаший степени двойки https://www.cyberforum.ru/ pascalabc/ thread194089.html помогите, пожалуйста, дали задания уже второй день сделать не могу :cry: условия такие: Дано целое число N (>0). Сформировать и вывести целочисленный массив размера N, содержаший степени двойки от первой до N-й: 2,4,8,16,32 ... .. p.s. задание из programming taskbook (array #2)	Pascal ABC Pascal ABC>Задание For4 https://www.cyberforum.ru/ pascalabc/ thread193733.html http://i007.***********/1011/64/b038958f2fac.jpg
Дан вещественный массив. Между соседними элементами массива вставить их полуразность Pascal ABC Дан одномерный вещественный массив. Между соседними элементами массива вставить их полуразность. В среде PascalABC	Pascal ABC Как в abc pascal сделать входной и выходной файл? https://www.cyberforum.ru/ pascalabc/ thread192823.html Например входной input.txt выходной output.txt program poizvedenie; var n,l,s:integer; begin writeln ('ââåäèòå 2 ÷èñëà'); read (n,l); s:=n*l; write ('ðàâíî',s) end. Помогите сделать на этом примере,что бы брались 2 числа из input.txt и выходились output.txt

pryda

Неадекват и грубиян

310 / 297 / 301

Регистрация: 22.02.2010

Сообщений: 645

21.11.2010, 01:52

Выбрать из четырехзначных чисел те, запись которых содержит 3 одинаковых цифры - Pascal ABC - Ответ 1127377

21.11.2010, 01:52. Показов 2165. Ответов 1

Метки (Все метки)

Сообщение было отмечено PolzOr как решение

Решение

Pascal

var i:integer;
 
function get3(n:integer):boolean;
var s:string;
    i,k,j:integer;
begin
str(n,s);
for i:=1 to length(s) do
begin
  k:=0;
  for j:=1 to length(s) do
  if (i<>j)and(s[i]=s[j]) then inc(k);
  if k>=2 then
  begin
    get3:=true;
    break;
  end;
end;
if k<2 then get3:=false;
end;
 
begin
for i:=1000 to 2000 do
if get3(i) then writeln(i);
readln;
end.

Вернуться к обсуждению:
Выбрать из четырехзначных чисел те, запись которых содержит 3 одинаковых цифры Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

21.11.2010, 01:52

Готовые ответы и решения:

Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны.
Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны.

Среди четырехзначных чисел выбрать те, в которых все четыре цифры разные
Здраствуйте! Извините что так резко, но это реально срочно, порекомендовал вас мне друг, сказал ,...

Среди четырехзначных натуральных чисел выбрать те, у которых все цифры четные, а их сумма делится на 8
Среди четырехзначных натуральных чисел выбрать те, у которых все цифры четные, а их сумма делится...

генератор случайных чисел выдает n четырехзначных чисел. вывести на экран лишь те из них, в которых совпадают первая и последняя цифры
генератор случайных чисел выдает n четырехзначных чисел. вывести на экран лишь те из них, в которых...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.11.2010, 01:52

Помогаю со студенческими работами здесь

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

Даны четырехзначные натуральные числа N и K (N, K <=1000). Из чисел от N до K выбрать те, запись которых содержит ровно три одинаковых цифры.
Даны четырехзначные натуральные числа N и K (N, K <=1000). Из чисел от N до K выбрать те, запись...

Среди четырехзначных чисел выбрать те, у которых цифры различны
Среди четырехзначных чисел выбрать те, у которых цифры различны. c использованием while

Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны
Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны (Windows Form)

Наверх