ВСЕ ЗАДАЧИ В ОДНОЙ
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.
Объяснение:
1. Да, цифровые технологии являются частным случаем информационных технологий.
2. Нет, не все информационные технологии являются цифровыми. Например процесс хранения информации путем записи ее с ручки в тетрадь, несомненно является информационной технологией, но не имеет отношения к цифровым технологиям.
3. Да, все цифровые технологии являются информационными, это следует из определения информационных технологий. (Процессы, методы поиска, сбора, хранения, обработки, предоставления, распространения информации и осуществления таких процессов и методов.)
4. Цифровая технология использует цифровое дискретное представление информации, как правило сигналами 1 и 0 (в некоторых случаях еще null), что позволяет широко использовать электронную вычислительную технику для организации информационных процессов.
на пикче
Объяснение:
чтобы узнать кол-во сотен, нужно поделить на 100
кол-во десятков, поделить на 10, и поделить по модулю на 10
кол-во единиц, поделить по модулю на 10