Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Вывести наибольшее целое K, при котором выполняется неравенство помогите решить задачу в паскале Здравствуйте!пожалуйста помогите решить задачу. Дано целое число N (>1). Вывести наибольшее целое K, при котором выполняется неравенство 3K<N, и само значение 3K https://www.cyberforum.ru/ pascal/ thread180868.html	Pascal переменной X присвоить произведение ненулевых элементов, Дан массив А(30). Если среди элементов массива есть элемент равный некоторому числу M, то переменной X присвоить произведение ненулевых элементов, расположенных до этого элемента, в противном случае переменной X присвоить 0.
Pascal помогите решить задачу в паскале Здравствуйте!пожалуйста помогите решить задачу. Дано целое число N (>1). Вывести наибольшее целое K, при котором выполняется неравенство 3K<N, и само значение 3K https://www.cyberforum.ru/ pascal/ thread180854.html	Pascal Вывод полученных значений в файл как вывести полученные значения в отдельный файл? https://www.cyberforum.ru/ pascal/ thread180852.html
Работа с текстовым файлом Pascal Здравствуйте! Помогите, пожалуйста сделать задание в Паскале. Задание - Программа должна из текстового файла обработать строки символов(просто прочесть) и результат вывести в другом текстовом файле. Если в начальном текстовом файле есть две одинаковых строки символов, то в результат вывести только одну из них. Остальные строки просто скопировать в результат! Как это делать? Помогите...	Pascal множества Составить алгоритм и написать программу нахождения для произвольного множества: - сочетаний (и их количества) - перестановок (и их количечтва) - размещений (и их количечтва) ребята,помогите пожалуйста((я не знаю с чего начать...возможно кто то уже с этим работал???!!! https://www.cyberforum.ru/ pascal/ thread180848.html
Pascal Дан текст из n символов. https://www.cyberforum.ru/ pascal/ thread180841.html Дан текст из n символов(n=80). Вывести сначала все цифры, входящие в него, а затем все остальные символы,сохраняя при этом исходное взаимное расположение символов в каждой из этих 2 групп.	Pascal Заменить в файле слова синонимами даны 2 текстовых файла f1 и f2 файл f1 содержит произольный текст. слова в файле разделены пробелами и знаками препинания. файл f2 содержит не более 30 слов, которые разделены запятыми, эти слова образуют пары: каждое второе является синонимом первого. заменить в файле f1 те, которые можно, их синонимами. Результат поместить в новый файл. Задача сложная, кто может помогите плз. ...
Pascal Нумерация порядковых номеров https://www.cyberforum.ru/ pascal/ thread180827.html Здравствуйте, у меня такой вопрос. Вот у меня есть два массива m1 и m2 В m1 содержаться различные числа В m2 порядковые номера. То есть создается первый массив и заполняется числами, и тут же создается второй с порядковыми номера. Вот так примерно выглядет 6(1) 4(2) 7(3) 2(4) 1(5)	Pascal Hайти и записать вместо x[1] наибольший элемент, а вместо x[2] -наименьший для массива x[1],x[2],..., x[100]. Hайти и записать вместо x наибольший элемент, а вместо x -наименьший для массива x,x,..., x. https://www.cyberforum.ru/ pascal/ thread180824.html
=( блок схемы Pascal Здравствуйте мальчики помогите плиз дурацкие блок схемы програмки сделала а с блок схемами не как разобраться не могу а их надо сдать уже завтро =(( 1 ая =) uses crt; const nmax=100; var a:array of real; n,i:byte; begin clrscr; randomize;	Pascal двухмерный масив Создать матрицу 6х4. В каждой строке найти наибольший элемент и поменять местами с соответствующим диагональным элементом. Результат вывести. https://www.cyberforum.ru/ pascal/ thread180816.html

SuPeR XaKer

2857 / 1986 / 788

Регистрация: 23.09.2010

Сообщений: 4,877

24.10.2010, 17:51

Определить количество цифр в введенных числах и вывести на экран сколько цифр в первом и втором числах - Pascal - Ответ 1053877

24.10.2010, 17:51. Показов 2178. Ответов 7

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

var
k,k2,kol1,kol2:integer;
begin
readln(k);
readln(k2);
kol1:=0;
kol2:=0;
 repeat
  begin
   k:=k div 10;
   inc(kol1);
  end;
 until (k=0);
 repeat
  begin
   k2:=k2 div 10;
   inc(kol2);
  end;
 until(k2=0);
writeln(kol1);
writeln;
writeln(kol2);
end.

эх опоздал....

Вернуться к обсуждению:
Определить количество цифр в введенных числах и вывести на экран сколько цифр в первом и втором числах Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.10.2010, 17:51

Готовые ответы и решения:

Нахождение одинаковых цифр в натуральных числах
Даны два натуральных числа m и n(m<9999, n<9999). Проверить, если ли в записи числа m цифры,...

Написать программу для определения одинаковых цифр в числах
Здравствуйте. Бьюсь над этими заданиями уже давно. Может у кого-нибудь идеи, куда мне копать? ...

Найти сумму цифр в чётных числах заданного списка
Всем привет. Есть задача которую не могу решить. Нужно найти сумму цифр чётных чисел. Пример -...

Вывести на экран количество цифр числа N и сумму его цифр
Дано натуральное число N (N<10255). Вывести на экран количество цифр числа N и сумму его цифр.

	24.10.2010, 17:51

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

24.10.2010, 17:51

Помогаю со студенческими работами здесь

В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести и на экран
В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести...

Найти суммарное число цифр во всех целых числах от m до n включительно
найти суммарное число цифр во всех целых числах от m до n включительно. Помогите написать программу

Строки. Найти сумму цифр в числах и вывести их на экран
Дана строка символов, состоящая из цифр от 0 до 9 и пробелов. Группы цифр, разделенные пробелами...

Сравнить количество цифр в 2-х числах
сравнить кол-во цифр в 2-х числах.(алгоритм функции)

Наверх