Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вычислить суммы положительных элементов каждой строки для матриц А(4,5) и В(5,6) Вычислить суммы положительных элементов каждой строки для матриц А(4,5) и В(5,6) https://www.cyberforum.ru/ turbo-pascal/ thread802472.html	Turbo Pascal Символьные данные: Раздвинуть заданный текст, вставив последовательность символов после последнего символа каждого слова Может кто-нибудь подсказать задание: Раздвинуть заданный текст, вставив введенную с клавиатуры последовательность символов после последнего символа каждого слова.
Turbo Pascal Составление циклических алгоритмов Решить задачу, используя 2 вида цикла: с параметром и с условием (либо с предусловием, либо с постусловием) https://www.cyberforum.ru/ turbo-pascal/ thread802434.html	Turbo Pascal календарное время https://www.cyberforum.ru/ turbo-pascal/ thread802431.html как представить календарное время у виде одного рационального числа
Turbo Pascal Даны два слова. Поменяйте местами буквы этих слов, занимающие одинаковые позиции Даны два слова. Поменяйте местами буквы этих слов, занимающее одинаковые позиции.	Turbo Pascal Ветвление: Найти количество элементов последовательности равных 0 https://www.cyberforum.ru/ turbo-pascal/ thread802423.html Подскажите эту прогу можно написать без применение цикла Дана последовательность из 20 чисел. Найти количество элементов последовательности равных 0
Turbo Pascal Вывести все простые числа в диапазоне от 1 до N Вывести все простые числа в диапазоне от 1 до N https://www.cyberforum.ru/ turbo-pascal/ thread802408.html	Turbo Pascal Выборка. Код написан, объясните в чем ошибка в условии Xmax, Xmin любые. Затем определяются границы. Потом распределение элементов по интервалам. Проблема в том, что программа проверят, мне кажется, только по одному условию. Program CTATICTIKA; var a:array of real; x:array of real;
Turbo Pascal Подсчитать сколько раз в данной строке встречается заданная буква вводимая с клавиатуры Подсчитать, сколько раз в данной строке встречается заданная буква, вводимая с клавиатуры https://www.cyberforum.ru/ turbo-pascal/ thread802318.html	Turbo Pascal Массив: Найти наименьший элемент матрицы и записать в строку, где находится этот элемент 10. https://www.cyberforum.ru/ turbo-pascal/ thread802305.html Найти наименьший элемент матрицы и записать в строку, где находится этот элемент 10. Размер матрицы вводится с клавиатуры. Элементы матрицы размещаются в памяти динамически.
Turbo Pascal Чтение из файла Надо сделать так,чтобы я вводил 2 строки в файле,сохранил этот файл,а при запуске программы мне виводились на экран эти предложения..Вот программа которая записывала в файл,теперь надо чтобы из файла читалось uses crt; var s,s1:string; c:char; a:array of string; b:array of byte; n,i,j:byte; f:boolean; f2:text; begin	Turbo Pascal Расчёт стрельбы по цели в атмосфере https://www.cyberforum.ru/ turbo-pascal/ thread802295.html program strelba; const ro_shar=7800; ro_sreda=1.29; mju=0.0182; g=9.8; r=0.08; var l, h, rc, v0, x, y, t, y1, dt, alf, alf1, alf2, dalf, m, k1, k2: real; procedure polet(alf: real; var y, t: real); var vx, vy, vx1: real; begin t:=0; vx:=v0cos(alf); vy:=v0sin(alf); y:=vydt; x:=vxdt; while (x<=l) do begin t:=t+dt; vx1:=vx-(k1+k2sqrt(vxvx+vyvy))vx/m*dt;

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,574

Записей в блоге: 1

07.03.2013, 09:56

Составьте программу подсчета числа четных цифр, используемых в записи н-значного числа M - Turbo Pascal - Ответ 4222038

07.03.2013, 09:56. Показов 1742. Ответов 1

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

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

Решение

Pascal

Var m,k:longint;
Begin
    write('Введите M: ');readln(m);
    While m>0 do
    Begin
      if m mod 10 mod 2 = 0 then inc(k);
      m:=m div 10;
    End;
    writeln('Чётных цифр = ',k);
    readln;
End.

Вернуться к обсуждению:
Составьте программу подсчета числа четных цифр, используемых в записи н-значного числа M Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.03.2013, 09:56

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

Процедуры и функции. Напишите программу подсчета числа четных цифр, используемых в записи N-значного числа M
Напишите программу подсчета числа четных цифр, используемых в записи N-значного числа M.

Создайте программу для подсчёта числа нечётных чисел, используемых в записи введёного числа
Задача 1 Напишите функцию возведения в степень по формуле a^n = Exp(Ln(a)*n). Используйте её в...

Подсчет числа четных цифр, используемых в записи N-значного числа M
Решить задачу с помощью процедур и функций. Написать программу подсчета числа четных цифр,...

определить символ код который в 4 раза больше суммы четных цифр заданного целого 4-х значного числа
Помогите пожалуста!) определить символ код который в 4 раза больше суммы четных цифр заданного...

	07.03.2013, 09:56

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.03.2013, 09:56

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

создать программу вычисляющщую произведение цифр 4-х значного числа
создать программу вычисляющщую произведение цифр 4-х значного числа введенного с клавиатуры плз...

Составить программу вычисления суммы цифр введенного с клавиатуры N -значного числа
Задание 1. помогите составить программу вычисления суммы цифр, введенного с клавиатуры N-значного...

Составьте программу подсчета числа одинаковых букв
1. Составьте программу подсчета числа одинаковых букв,стоящих на одних и тех же местах в словах Х и...

Составьте программу подсчета числа различных букв в слове
Составьте программу подсчета числа различных букв в слове

Наверх