Програма в паскаль ввести ціле число і визначити, чи правда, що в його записі є дві однакові цифри. приклад: ввести ціле число: ввести ціле число: 1234 1224 ні. так.

Есть много разных решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
 if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('Да') else writeln('Нет');
end.

Пример:
n=123432
Да

Вот ещё вариант:
var n,m,n1,m1,b:integer;
begin
write('n='); readln(n);
b:=0;
while n>0 do
 begin
 m:=n mod 10;
 n:=n div 10;
 n1:=n;
 while n1>0 do
   begin
    m1:=n1 mod 10;
    if m=m1 then b:=1;
    n1:=n1 div 10;
    end;
 end;
if b=1 then writeln('Да') else writeln('Нет');
end.

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

setlocale(LC_ALL,"russian");

int num;

cout << "Введите размер массива: ";

cin >> num;

int a[num];

int sum = 0;

cout << "Вводите элементы массива поочерёдно: " << endl;

for(int i = 0; i<num; i++)

{

cin >> a[i];

if(a[i]%5==0 && a[i]%2==0) // находим в массиве числа, кратные 5 и 2

{

 sum = sum + 1;

}

}

cout << "Чётных чисел, кратных пяти и двум: " << sum << endl;

system("pause");

return 0;

}

Запрещяется:

трогать разъемы соединительных кабелей;

прикасаться к питающим проводам и устройствам заземления;

прикасаться к экрану и к тыльной стороне монитора;

включать и отключать аппаратуру без указания преподавателя;

класть диск, книги, тетради на монитор и клавиатуру;

работать во влажной одежде и влажными руками.

Перед началом работы:

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

Разместите на столе тетрадь, учебное пособие так, чтобы они не мешали работе на ЭВМ.
Внимательно слушайте объяснения учителя и старайтесь понять цель и последовательность действий; в случае необходимости обращайтесь к преподавателю.

Хорошо разберитесь в особенностях, применяемых в работе аппаратов.

Начинайте работу только по указанию преподавателя «Приступить к работе».

Во время работы:

Строго выполняйте все указанные выше правила, а также текущие указания учителя.

Следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры. Немедленно докладывайте об этом преподавателю.

Плавно нажимайте на клавиши, не допуская резких ударов.

Не пользуйтесь клавиатурой, если не подключено напряжение.

Работайте на клавиатуре чистыми руками.

Никогда не пытайтесь самостоятельно устранять неисправности в работе аппаратуры.

Вы должны хорошо знать и грамотно выполнять эти правила, точно следовать указаниям преподавателя, чтобы:

а) избежать несчастных случаев;

б) успешно овладеть знаниями, умениями, навыками;

в) сберечь вычислительную технику и оборудование.

Правильная посадка при работе за компьютером.

Сидеть нужно на расстоянии 60—70 см от монитора, допустимо не менее 50 см, соблюдая правильную посадку, не сутулясь, не наклоняясь;
Экран монитора не должен находиться выше уровня глаз.

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

Лучше всего использовать специальные стулья для работы за компьютером.

Руки в локтях должны быть согнуты под прямым углом.
В топ если