Question

НА КУМИРЕ НА КУМИРЕ
НА КУМИРЕ
1) Ввести целое число и определить, верно ли, что в нём ровно 3 цифры.

Пример:

Введите число: Введите число:
123 1234
Да. Нет.
2)Ввести целое число и найти сумму его цифр.

Пример:

Введите целое число:
1234
Сумма цифр числа 1234 равна 10.
3)Ввести целое число и определить, верно ли, что в его записи есть
две одинаковые цифры, стоящие рядом.

Пример:

Введите целое число: Введите целое число:
1232 1224
Нет. Да.
4)Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры, НЕ обязательно стоящие рядом.

Пример:

Введите целое число: Введите целое число:
1234 1242
Нет. Да.

Answer 1

ВСЕ ЗАДАЧИ В ОДНОЙ

var enter,numberDgigits,i,j,cod,k:integer;

     number:string;

     ch:char;

begin

  writeln('введите целое число');

  readln(number);

  for i:=1 to length(number)-1 do

     if number[i]=number[i+1] then

       k:=k+1;

    if k<>0 then begin

  writeln('в записи числа есть две одинаковые цифры стоящие рядом');

  end

  else

  writeln('в записи числа нету двух одинаковых цифр стоящих рядом');

  k:=0;

  for i:=1 to length(number)-1 do begin

     ch:=number[i];

        for j:=1+i to length(number) do

          if ch=number[j] then

             k:=k+1;

  end;

  if k<>0 then begin

  writeln('в записи числа есть одинаковые цифры');

  end

  else

  writeln('в записи числа нету одинаковых цифр');

  val(number,enter,cod);

  if (enter>99) and (enter<1000) then begin

    writeln('число трехзначное')

  end

    else

    writeln('число не трехзначное');

    numberDgigits := 0;

   while enter > 0 do begin

     numberDgigits := numberDgigits + enter mod 10;

     enter := enter div 10;

   end;

   writeln('сумма цифр = ',numberDgigits);

   readln;

end.

Answer 2

Запуск командной строки:
Ipconfig /flushdns очистить кеш DNS.
Ping, Tracert – проблема сети и подключения
Shutdown – создать ярлыки выключения Windows 8:
NetStat -an – список сетевых подключений и порты:
cipher – затереть каталог:
SFC /scannow – сканирование системных файлов и поиск проблем: