Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Составьте программу ввода и вывода массива Составьте программу ввода и вывода массива: 5, -2, 3, -6, 7, 9, -4, 8, 1, 2, 7, -3. https://www.cyberforum.ru/ pascalabc/ thread973194.html	Pascal ABC n - массивов, разной размерности, нужно найти min и max в этих массивах. Из полученных min найти наименьший элемент, из max наибольший n - массивов, разной размерности, нужно найти min и max в этих массивах. Из полученных min найти наименьший элемент, из max наибольший.
Pascal ABC Предопределенные типы переменных. Простые типы данных. Пользовательские типы данных https://www.cyberforum.ru/ pascalabc/ thread973167.html Лабораторная работа №6. Тема: Предопределенные типы переменных. Простые типы данных. Пользовательские типы данных.(лекция) Цель: обобщить и систематизировать знания, умения, навыки решения задач в ТР с использованием пользовательских типов данных. Задание на лабораторную работу: По примеру, приведенному на лекционном занятии разработать две задачи, которые соответствуют теме...	Pascal ABC Определить, какие цветы цветут в летний период https://www.cyberforum.ru/ pascalabc/ thread973151.html нужно написать 2 программы на ПОДОБЕ этой "Написать программу, которая определяет, какие цветы цветут в летний период в противном случае вывести сообщение о том, что лето кончилось"
Pascal ABC Найти в последовательности чисел 1, 1+, 1++,… первое число, большее заданного А Найти в последовательности чисел 1, 1+1/2, 1+1/2+1/3,… первое число, большее заданного А. cделать через while без inc! или for to do	Pascal ABC Посчитать и вывести, сколько раз слово встречается в строке https://www.cyberforum.ru/ pascalabc/ thread973123.html все,что смогла: program poisk; uses crt; var s:string; k,j,a:integer; begin writeln('ñòðîêà:'); readln(s); k:=0; a:=length(s);
Pascal ABC Почему-то не воспринимает переменную "y". Почему? program exe; var Sum,F,P1:real; n,k:integer; ex:'a'..'z'; begin repeat writeln('Введите натуральное неотрицательное число'); read(n); F:=1; for k:=2 to n do //вычисление факториала https://www.cyberforum.ru/ pascalabc/ thread973092.html	Найти сумму первых целых положительных чисел Pascal ABC Написать программу, которая вычисляет сумму первых n целых положительных четных чисел.
Pascal ABC Максимальное количество одинаковых положительных элементов В одномерном массиве найти максимальное количество одинаковых положительных элементов и максимальное количество одинаковых отрицательных элементов, расположенных рядом. https://www.cyberforum.ru/ pascalabc/ thread973004.html	Pascal ABC Вычислить сумму элементов https://www.cyberforum.ru/ pascalabc/ thread973003.html Вычислить сумму элементов последовательности. S=15-17+19-21... Здесь видно что каждый последующий член больше предыдущего по модулю на 2, но и умножается на -1... Как это записать в цикле?
Составьте программу вычисления среднего арифметического отрицательных элементов Pascal ABC Составьте программу вычисления среднего арифметического отрицательных элементов.	Pascal ABC Вычислить значение функции Решите программу на листке, пожалуйста https://www.cyberforum.ru/ pascalabc/ thread972980.html

Lococbv

0 / 0 / 0

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

Сообщений: 2

09.10.2013, 20:10

Вводится число с клавиатуры. Вывести на экран все цифры, которые повторяются более одного раза, при выводе цифры не должны повторятся - Pascal ABC - Ответ 5160935

09.10.2013, 20:10. Показов 3051. Ответов 3

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

Ответ

Pascal

program test;
const n=10;
var i,a:integer;
begin
writeln('vvedite chisla');
for i:=1 to n do
read(a);
if (a=a) then writeln('false');readln;
if (a<>a) then writeln('true');readln;
end.

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

09.10.2013, 20:10

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

Из списка чисел вывести на экран в одну строку значения, которые повторяются в нём более одного раза
Напишите программу, которая принимает на вход список чисел в одной строке и выводит на экран в одну...

Дано число. Вывести цифры, которые повторяются в записи числа больше одного раз
Дано число. Вывести цифры, которые повторяются в записи числа больше одного раз

С клавиатуры вводится цифра, необходимо вывести на экран все цифры, начиная с ‘2’ и заканчивая введенной с клавиатуры.
С клавиатуры вводится цифра, необходимо вывести на экран все цифры, начиная с ‘2’ и заканчивая...

	09.10.2013, 20:10

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

09.10.2013, 20:10

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

Принять на вход список чисел в одной строке и вывести в одну строку значения, которые повторяются более одного раза
В общем, программа не проходит тесты на вещественных, двухзначных и отрицательных числах....

Найти и вывести на экран все элементы, которые которые повторяются более N/2 раз
#include "stdafx.h" #include <iostream> #include <fstream> using namespace std; int _tmain() {...

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

Вывести на экран все трехзначные числа, в которых хотя бы две цифры повторяются
Здравствуйте, Помогите, пожалуйста, найти ошибку. Циклом while и do while работает, а for не...

Наверх