НА КУМИРЕ НА КУМИРЕ
НА КУМИРЕ
1) Ввести целое число и определить, верно ли, что в нём ровно 3 цифры.
Пример:
Введите число: Введите число:
123 1234
Да. Нет.
2)Ввести целое число и найти сумму его цифр.
Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.
3)Ввести целое число и определить, верно ли, что в его записи есть
две одинаковые цифры, стоящие рядом.
Пример:
Введите целое число: Введите целое число:
1232 1224
Нет. Да.
4)Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры, НЕ обязательно стоящие рядом.
Пример:
Введите целое число: Введите целое число:
1234 1242
Нет. Да.
ВСЕ ЗАДАЧИ В ОДНОЙ
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.
Ipconfig /flushdns очистить кеш DNS.
Ping, Tracert – проблема сети и подключения
Shutdown – создать ярлыки выключения Windows 8:
NetStat -an – список сетевых подключений и порты:
cipher – затереть каталог:
SFC /scannow – сканирование системных файлов и поиск проблем: