Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Какой Паскаль и как установить на Windows 8 https://www.cyberforum.ru/ pascal/ thread705717.html Как на WIndows 8 установить?	Определить количество вхождений S3 вхождений в строку S1 Pascal Здравствуйте. Помогите, пожалуйста, решить задачу: Ввести строку S1 c помощью оператора readln. Определить ее реальную длину. В строку S2 вводить информацию посимвольно с помощью readkey, конец ввода - "!". Строка S2 должна быть равна длине S1. Ввести строку S3, определить количество вхождений ее вхождений в строку S1, если вхождений нет, то вставить S3 в середину S2. Буду очень благодарен.
Pascal Pascal метод Жордана https://www.cyberforum.ru/ pascal/ thread705437.html Помогите пожалуйста написать программу для решения СЛАУ методом Жордана с выбором ведущего элемента по столбцу	Pascal Задача про конверты Объясните как можно подробнее(словесно). По краю очень большого круглого стола с равными интервалами разложены небольшие конверты, в каждом из которых лежат деньги. Известны суммы, лежащие в каждом конверте. Опишите алгоритм, позволяющий провести прямую через центр стола, разделяющую конверты на два множества с одинаковой суммой денег. Прямая не должна проходить по конвертам. Если такой прямой... https://www.cyberforum.ru/ pascal/ thread705402.html
Дано действительную матрицу размером M × N. Определить произведение ненулевых чисел b1, ., bm, равных соответственно суммам элементов строк Pascal Дано действительную матрицу размером M × N. Определить произведение ненулевых чисел b1, ..., bm, равных соответственно суммам элементов строк.	Pascal Дано действительную квадратную матрицу порядка M. В строках с отрицательным элементом на главной диагонали найти наибольший из всех элементов Дано действительную квадратную матрицу порядка M. В строках с отрицательным элементом на главной диагонали найти наибольший из всех элементов. https://www.cyberforum.ru/ pascal/ thread705382.html
Pascal Вычисление определённого интеграла методом трапеций Составить алгоритм для вычисления таблицы значений функции f(x,a,b)=(ab〖(sinx)〗^2)/√(x) Где B – параметр функции, принимающий значения интеграла: ∫(x^2)(е^2)((cos3x)^2) Вычислимый с погрешностью eps https://www.cyberforum.ru/ pascal/ thread704984.html	Pascal Дан массив с пятью случайными числами в интервале [5.8]. Найти количество элементов больших,чем 6 Помогите,пожалуйста!=))Дан массив с пятью случайными числами в интервале . Найти количество элементов больших,чем 6!Спасибо!=))
Pascal исправьте ошибку https://www.cyberforum.ru/ pascal/ thread704959.html program dvoichnyi; uses crt; var i:integer; a:array of integer; b:array of string; s,d:string; k:integer; begin clrscr; writeln('key');	Pascal Одномерные массивы (сдвиги, вставка, удаление и сортировка) https://www.cyberforum.ru/ pascal/ thread704899.html Сформировать массив А с помощью датчика случайных чисел целыми числами из интервала . Вывести элементы массива на экран. Все числа, указанные в формулировках задач вводятся с клавиатуры. Заменить элементы между минимальным и максимальным элементами нулями Удалить из массива все элементы, больше данного числа А (А вводится с клавиатуры) Вставить число К перед последним отрицательным...
Pascal Поменять местами элементы массива Найти наибольший и наименьший элемент массива и поменять их местами?	Pascal Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива https://www.cyberforum.ru/ pascal/ thread704785.html Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива. При соблюдении следующих условий: Программа должна создавать одномерный массив случайных чисел из 20 элементов величиной от -25 до +25, используя команду randomize Заранее спасибо;)

Стрелок

43 / 43 / 27

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

Сообщений: 73

22.11.2012, 18:00

Найдите количество четных цифр в десятичной записи числа n - Pascal - Ответ 3738789

22.11.2012, 18:00. Показов 6209. Ответов 1

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

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

Решение

Pascal

program zz;
Uses
    Crt;
var
   i,g,q:integer;
   rez:integer;
   st:string;
   d1,d2:text;
begin
assign(d1, 'input.txt');
assign(d2, 'output.txt');
reset(d1);
readln(d1, st);
rez:=0;
 for i:=1 to length(st) do
  begin
   val(st[i], g, q);
    if(g mod 2 = 0) then rez:=rez+1;
  end;
rewrite(d2);
write(d2, rez);
close(d2);
end.

Вернуться к обсуждению:
Найдите количество четных цифр в десятичной записи числа n Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

22.11.2012, 18:00

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

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

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

Найти количество различных цифр в десятичной записи числа.
Дано N(1<=N<=10^9). Найти количество различных цифр в десятичной записи числа. Количество...

Подсчитать количество различных цифр в десятичной записи натурального числа
Подсчитать количество различных цифр в десятичной записи натурального числа

	22.11.2012, 18:00

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

22.11.2012, 18:00

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

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

Найти количество цифр 5 в десятичной записи числа N
Найти количество цифр 5 в десятичной записи числа N с помощью repeat

Подсчитать количество цифр в десятичной записи целого неотрицательного числа.
Подсчитать количество цифр в десятичной записи целого неотрицательного числа.

Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n
Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n.

Наверх