Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Обработка данных Создать в программе Блокнот текстовый файл. Написать программу, которая находит сумму всех чисел, входящих в текст созданного файла. https://www.cyberforum.ru/ pascal/ thread107200.html	Pascal Алгоритм метода хорд!!! Не получаеться решить! почему пишет - путь не задан! Задание; Необходимо получить решение уравнения; 39sqr(x)sin(x)sqr(cos(3x))/14-k=0 для всех значений k на отрезке x n=5(сезоны работы предприятия) k=95,186 ; 104,704 ; 115,175 ; 126,692 ; 139,362,. Program Metod_Chord; Uses Crt;
Pascal расчет стоимости разговора абонента по направлениям https://www.cyberforum.ru/ pascal/ thread107185.html Используя возможности программирования написать программу на языке Delphi, вычисляющую стоимость междугородних телефонных разговоров по заданным направлениям и вывести бланк квитанции оплаты за предоставляемые услуги. В среде Delphi создать проект – консольное приложение. Программа должна вычислять стоимость однократного междугороднего телефонного разговора по каждому из заданных направлений, их...	Pascal вектор https://www.cyberforum.ru/ pascal/ thread107181.html Помогите решить 3 задачи 1.Заполнить вектор длинны n=10 числами cos1,cos2,cos3,cos4,...и вывести его в столбец так чтобы в каждой строке было по два элемента,разделенные 3 пробелами, в каждом числе 2 знака после запятой 2.Заполнить вектор длины n=10 числами 2,4,6,8,... И вывести его в строку в обратном порядке через 2 позиции 3.Заполнить вектор длины n=10 числами 1!,2!,3!,4!,... И вывести...
Коши Pascal разработать программу методом Эйлера для задачи Коши у'-y/x=x^2 ,y\|(x=1)=0 на интервале	Pascal Найти максимальный четный элемент в массиве из всех положительных элементов. Найти максимальный четный элемент в массиве из всех положительных элементов. Например, если А = { 2, 4, –3, 6, 2, 9, –2}, результат: 6. https://www.cyberforum.ru/ pascal/ thread107176.html
Pascal описание матрицы https://www.cyberforum.ru/ pascal/ thread107175.html ребята ,помогите пожалуйса.. Описать тип-объект MATRIX (матрица произвольной размерности M*N) и его методы: ввод матрицы; вывод матрицы; создание вектора столбцов матрицы, в которых элементы не повторяются. Описать тип и методы его потомка MATR ( методы : создание вектора номеров строк матрицы, где есть хотя бы одно совершенное число; создание вектора номеров столбцов матрицы, элементы которых...	В одномерном массиве вычислить максимальный элемент массива. Pascal 1.В одномерном массиве, состоящий из n элементов, вычислить: -Максимальный элемент массива. -Номер последнего положительного элемента. Сжать массив, удалить из него все элементы, модуль которых находится в интервале . Освободившейся в конце массива элементы заполнить нулями. Program Ex_1; Uses CRT; Var A:array of integer; max,N,K,i:integer; BEGIN
Pascal проверка на 2хзначность и четность числа нужно составить программу, определяющую является ли введенное число с клавиатуры двухзначным и четным+для етого случая нужно найти квадрат числа. program divide; var m : Integer; begin Write('Введите целое число'); ReadLn(m); if m mod 2=0 then begin if (m > 9) and (m < 100) then write('число двузначное, четное и его квадрат равен',m*m) end https://www.cyberforum.ru/ pascal/ thread107156.html	Pascal Матрица с диапазоном https://www.cyberforum.ru/ pascal/ thread107147.html помогите пожалуйста составить такую програику: "Все елементы заданной матрици, которые лежат в указаном диапазоне переместить в начало матрици".
Pascal Замена заглавных букв и маленьких Замена в текстовом файле все латинские большие буквы на маленькие,а маленькие на большие,с ведением протокола. Заранее спасибо за помощь=)))	Pascal Сортировка и прокрутка. Мне задали лабораторную работу в институте. Я в принципе основную часть сделал, но мне нужна помощь (как можно быстрее помогите): нужно сделать сортировку (добавление записи в файл – в рассортированный файл на должное место в соответствии со значениями признака, по которому рассортирован файл); нужно сделать прокрутку (распечатка записей файла (в данных условиях - вывод на экран);... https://www.cyberforum.ru/ pascal/ thread107130.html

Puporev

Почетный модератор

64300 / 47595 / 32743

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

Сообщений: 115,181

27.04.2010, 18:21

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

27.04.2010, 18:21. Показов 2589. Ответов 5

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

Ответ

Pascal

uses crt;
function SumCifr(n:longint):byte;
var m:longint;
    s:byte;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
SumCifr:=s;
end;
procedure KolChet(n:integer; var k:integer);
var i:byte;
begin
k:=0;
for  i:=2 to n do
if (i mod 2=0)and(SumCifr(i)mod 2=0) then 
  begin
   k:=k+1;
   write(i,' ');
  end;
writeln;
end;
var n,k:integer;
begin
clrscr;
writeln('Найти количество четных чисел с четной суммой цифр не более заданного значения.');
write('Введите число для поиска n=');
readln(n);
writeln('Это числа:');
KolChet(n,k);
write('Их количество=',k);
readln
end.

Вернуться к обсуждению:
Написать программу, которая высчитывает количество четных чисел, не превышающих заданного значения, сумма цифр которых также является четным числом. Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.04.2010, 18:21

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

2.2Написать программу, которая проверяет – является ли сумма цифр заданного трехзначного числа четным числом.
2.2Написать программу, которая проверяет – является ли сумма цифр заданного трехзначного числа...

Определить количество элементов массива, в которых сумма первой и последней цифр является четным числом
дан массив a(n). определить количество элементов массива , в которых сумма первой и последней цифр...

Из чисел вывести такие, в которых сумма двух левых цифр является чётным числом и равным сумме двух правых цифр
Помогите составить программу с помощью qbasic Из четырёхзначных чисел ( Целых по значению...

Написать программу, которая высчитывает количество делителей заданного натурально значения k.
Написать программу, которая высчитывает количество делителей заданного натурально значения k.

	27.04.2010, 18:21

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.04.2010, 18:21

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

Найти все простые числа, не превосходящие заданного числа, сумма цифр которых, также является простым числом
Срочно нужен код программы в C++ (желательно с комментариями). Я бы разобрался и сам, но на это...

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

Сумма цифр простого числа, которая также является простым числом
помогите, пожалйуста! Написать программу, которая на заданном отрезке натурального ряда чисел...

Найти количество элементов, сумма которых является четным числом
Дана целая квадратная матрица порядка n. Найти количество элементов, сумма которых является четным...

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

Отсортировать по возрастанию только элементы массива, сумма цифр целой части которых является чётным числом
Привет! можете помочь пожалуйста...

Наверх