Var n,s:integer; begin write('Введите число: '); readln(n); s:=0; while n<>0 do begin n:=n div 10; s:=s+1; end; //Число должно быть в пределах диапазона типа данных integer writeln('Число состоит из ',s,' цифр'); end.
Вопрос №1: 1) - г 2) - а 3) - б 4) - д 5) - в вопрос №2: 1) - б 2) - в 3) - а 4) - д 5) - г вопрос №3: в,г вопрос №4: для ответа на этот вопрос необходимы картинки из условия, так что ответить без них не представляется возможным. вопрос №5: в вопрос №6: д вопрос №7: 1) - г 2) - в 3) - а 4) - д 5) - б вопрос №8: 1) - б 2) - а 3) - в вопрос №9: здесь,как и в вопросе №4 решающую роль играет рисунок,которого нет - ответа без него быть не может. вопрос №10: а,б,д вопрос №11: в - информационные компьютерные технологии с одновременным использованием нескольких видов информации.вопрос №12: все 3 варианта ответа имеют место быть верными, то есть все варианты верны.
Через поле и лесок Подается голосок. Он бежит по проводам - Скажешь здесь, А слышно там.-Телефон Под крышей — четыре ножки, А на крыше — суп да ложки.-Cтол Важных данных я хранитель, Информации носитель, Гибкая,так что же это? Я магнитная ?-Дискета.
Я блокнот и память я, Есть и электронная. Записи я все веду, Всё фиксирую и жду. книжка
Не пищу и не шуршу, А с компьютером-дружу. Я курсором управляю, И командам мышка
Осенью,я всех встречаю. Летом,просто отдыхаю. Весь учебный год-учу, Дарить знания хочу. школа P.S Если тебе понравилса ответ будь добр поставь лучший ответ.
// Внимание! Если программа не работает, обновите версию!
begin
ReadString.Matches('\d').Count.Println
end.
Пример
Сегодня 10.02.2018г., время 23:32
12