tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу на языке паскаль
Напишите программу на языке паскаль для нахождение количества цифр в записи положительного целого числа x.
альбинка28
3 28.05.2019 15:40
0
Ответы
лиза2740
01.10.2020 13:42
Program ololo;
var a,b:integer;
begin
read(a);
if a = 0 then begin write(1); exit; end;
while a <> 0 do
begin
inc(b);
a := a div 10;
end;
write(b);
end.
ПОКАЗАТЬ ОТВЕТЫ
nosia
01.10.2020 13:42
Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
школоллло
27.08.2019 10:30
Дана действительная матрица размера m×n. определить числа равные значениям средних арифметических элементов строк....
SoloniyOgurets
27.08.2019 10:30
Какая связь между компьютерной графикой и компьютерной анимацией...
BOG5555
16.02.2020 19:56
Укажите наибольшее целое значение А, при котором выражение (2y + 3x ≠ 48) ∨ (2y A) ∨ (3x A) истинно для любых целых положительных значений x и y.С объяснением...
19Otlichnik19
16.02.2020 19:56
Работа на языке программирования Кумир 1) Написать команды в «роботе», которые выведут ваше имя. Ввести имя Саша 2) Составить программу на языке «Кумир». Решите...
angelinaoguzova
10.09.2020 23:46
заполните схемы по информатике 8 класс, схема записи звуковой информации в память компьютера и схема воспроизведения звуковой информации, сохранённой в памяти компьютера...
barslkbarslk
01.02.2020 18:45
Сколько всего суммарно слов длиной от 1 до 9 букв включительно можно составить, если в них можно использовать первые 6 букв алфавита? все буквы должны быть в нижнем...
Испан1
03.02.2020 00:15
Составить программы на pascal e: дано число х, найти y = 3|x^3|-6x^2+7 и y = 4(x-3)^2 - 14,65(x-3) + 2,5x. , ❤️...
GeintQQ
02.02.2020 23:43
Петя составляет шестибуквенные слова из букв п, е, т, я. каждую букву можно использовать любое количество раз, но нельзя ставить подряд две гласные, две согласные....
VenyaMenya
23.05.2019 05:20
Сколько страниц машинописного текста (60символов,40 строк) содержится в текстовом файле объемом 500кб?...
sergeywrest51
29.11.2020 17:02
Разметка, запиливание и выпиливание шипов и проушин, гребенка, вырубание проушин, долбление гнезд, долото, стамеска, подгонка шипа и проушины, пилы: лучковая, ножовка,...
Популярные вопросы
Твір Любов дитя планети напишіть будь ласка ...
1
Определите синтаксическую роль выделенных слов: И какой частью...
2
Решить пять любых линейных неравенств ...
3
3 Ты уда. Мәтінді оқы. Түсініксіз сөздерді тап.кешпенді түрлерді...
3
найдите радиус окружности ,описаной около треугольника,если один...
1
При взаємодії лужного металу масою 7,0 г з водою утворився водень,...
3
построить график и исследовать его! Построить график y=(x^2+5)/(x^2-1)...
2
4.мир создан для тех, кто умеет мыслить. дайте определения. тариф...
3
Время и причины формирования соцреализма...
1
7 Реши задачи.а) С автостанции одновременно отошли в противоположныхнаправлениях...
2
var a,b:integer;
begin
read(a);
if a = 0 then begin write(1); exit; end;
while a <> 0 do
begin
inc(b);
a := a div 10;
end;
write(b);
end.
var s:string;
begin
readln(s);
writeln(length(s));
end.