Дано четырехзначное число.Определите есть ли одинаковые цифры в нем. PASCAL

Знания

Информатика

1 ответ:

настяяяя4 года назад

0 0

PascalABC.NET 3.4

begin
var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой
var l1 := s.Length; // всего цифр
var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
if l1 = l2 then Writeln('Одинаковых цифр нет')
else Writeln('Одинаковые цифры есть')
end.

Читайте также

Найти сумму четырехзначного числа на языке паскаль

San-sanch

Program pro;
var k,a,sym:integer;
begin
readln(k);
while k>0 do
begin
a:=k mod 10;
sym:=sym+a;
k:=k div 10;
end;
writeln('Сумма разрядов четырехзначного числа равна ',sym)
end.

0 0

4 года назад

Запишите команды для выполнения следующих действий с БД «Домашняя библиотека»; а) сортировки в порядке возрастания годов издания

Kristina282018 [7]

1. select * from Название_таблицы order by Поле_с_датой
2. select * from <span>Название_таблицы where Имя_автора <> 'Беляев А.Р.' order by автор, год
3. delete from </span><span>Название_таблицы where номер_полки=5 and год<'01-01-1990'</span>

0 0

4 года назад

В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а дл

russkihruslan12 [62]

По запросу Мороз - 1100 страниц.

0 0

4 года назад

Тiзiм дегенимиз не информатикадан сурак

Арыстан

Что надо делать там вапросы ???

0 0

4 года назад

дан массив из пятнадцати элементов заполненный целыми числами в диапазоне от -20 до 60. верно ли что максимальный элемент больше

Валерия Попова [1]

type diapazon=-20..60;

var a: array [1..15] of diapazon;

i,max,min: integer;

begin

max:=1;

min:=1;

for i:=1 to 15 do

begin

readln(a[i]);

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

end;

if (max/min) > 2 then writeln('Верно') else writeln('Неверно');

end.

0 0

1 год назад