Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Составить программу для перевода этого числа в десятичную систему счисления Практика... Help! Дана символьная строка, представляющая собой запись натурального числа в p-ичной системе счисления ( 2<=p<=9).Составить программу для перевода этого числа в десятичную систему счисления https://www.cyberforum.ru/ pascalabc/ thread320064.html Pascal ABC Получить новое число, которое образуется из исходного путем замены последней цифры
помогите Плиз Дано натуральное число N. Получить новое число M, которое образуется из числа N путем замены последней цифры на значение наименьшей цифры в записи числа N. Пример. N=128452, M=129451.
Pascal ABC Программа для определения , сколько фамилий начинаясь на букву А https://www.cyberforum.ru/ pascalabc/ thread319973.html
Составить программу для определения, сколько фамилий в списке начинаются с буквы А 		Pascal ABC Дана последовательность состоящая из 10 вещественных чисел. Дана последовательность состоящая из 10 вещественных чисел. Определить является ли она возрастающей или убывающей. Я НА ЭКЗАМЕНЕ ПОМОГИТЕ https://www.cyberforum.ru/ pascalabc/ thread319966.html
Pascal ABC Движение шарика по заданной траектории
Помогите сделать программу Нарисовать движение шарика по данной траектории. 		Pascal ABC На отрезке [2, n] найти все натуральные числа, сумма цифр которых при умножении числа на а не изменится. https://www.cyberforum.ru/ pascalabc/ thread319957.html
Народ, практика горит! Помогите!!!
Pascal ABC Найти столбец матрицы с максимальным произведением элементов Среди столбцов заданной целочисленной матрицы найти столбец с максимальным произведением элементов. https://www.cyberforum.ru/ pascalabc/ thread319946.html Pascal ABC Получить двумерный массив по следующим правилам
Получить двумерный массив по следующим правилам: элементы главной диагонали равны 1, ниже главной диагонали - 0, выше - сумме своих индексов.
Pascal ABC В строке все вхождения слова "Да" заменить на "Нет". https://www.cyberforum.ru/ pascalabc/ thread319849.html
В строке все вхождения слова "Да" заменить на "Нет". Игнорируется разница между строчными и заглавными буквами. помогите, плииииз. оч прошу(((((( 		Pascal ABC Сформировать запись, имеющую следующую структуру type пассажир=record фамилия:string; имя:string; номер рейса:string; количество вещей:integer; общий https://www.cyberforum.ru/ pascalabc/ thread319843.html
Сформировать запись, имеющую следующую структуру type пассажир=record фамилия:string; имя:string; номер рейса:string; количество вещей:integer; общий вес: integer; end; и определить: рейс с максимальным весом багажа; пассажира с наибольшим количеством вещей; вывести список пассажиров и информацию об их багаже, улетающих данным рейсом uses crt;
Поправьте пожалуйста нужно из файла вывести Pascal ABC
Поправьте пожалуйста нужно из файла вывести pentiumI 1992 pentiumII 1993 pentiumIII 1994 pentiumIV 2000 считывать до пробела в a.mark после пробела считывать в a.data; assign(ft,'g:\reez.txt'); 		Pascal ABC Нарисовать 4 круга последовательно используя циклы https://www.cyberforum.ru/ pascalabc/ thread319787.html
Нужна программа которая будет рисовать 4 круга последовательно используя циклы 1.Цикл с постусловием 2.Цикл с предусловием 3.Счётчик как бы в 3 вариантах
74 / 74 / 44
Регистрация: 12.02.2011
Сообщений: 380
15.06.2011, 21:08 0

Даны натуральные числа K и N. Составить программу формирования массива А, элементами которого являются числа, сумма цифр которых равна К и которые не - Pascal ABC - Ответ 1763136

15.06.2011, 21:08. Показов 5005. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

uses crt;
type arr=array[1..1000]of integer;
 
var N, K, C: integer;
a : arr;
 
function sum(n:integer):integer;
var s:integer;
begin
 s:=0;
 while n<>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;
 sum:=s;
end;
 
procedure fill(var a:arr, C, N, K: integer);
var i:integer;
begin
 c:=0;
 for i:=1 to N do if sum(i)=k then
 begin
  inc(c);
  a[c]:=i;
 end;
end;
 
begin
 clrscr;
 write('N K-> ');
 readln(N, K);
 fill(a, c, N, K);
 for i:=1 to с do write(a[i],' ');
 readln;
end.


Вернуться к обсуждению:
Даны натуральные числа K и N. Составить программу формирования массива А, элементами которого являются числа, сумма цифр которых равна К и которые не Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 15.06.2011, 21:08
Готовые ответы и решения:

Даны натуральные числа К и N. Составить программу формирования массива A, элементами которого являются числа, сумма цифр которых равна K и которые не
вот собственно задача: Даны натуральные числа К и N. Составить программу формирования массива A,...

Даны натуральные числа K и N. Составить программу формирования массива А, элементами которого являются числа, сумма цифр
может кто помочь написать программу на vb, я сам особо в нем не разбираюсь, а сдать надо завтра,...

Формирование массива, элементами которого являются числа, сумма цифр которых равна K и которые не больше N
Даны натуральные числа K и N. Составить программу формирования массива А, элементами которого...

Формирование массива, элементами которого являются числа, сумма цифр которых равна K и которые не больше N
Даны натуральные числа К и N. Составить программу формирования массива A, элементами которого...

2
15.06.2011, 21:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 15.06.2011, 21:08
Помогаю со студенческими работами здесь

Сформировать массив, элементами которого являются числа, сумма которых равна K и которые не больше N
блин, на контрольной дали задачу, вообще не понимаю что требуется!(( помогите плиз!! Если у кого то...

Составить программу формирования массива,элементами которого являются цифры числа n
Люди,прошу вас помогите решить задачки по паскалю: 1)Дано натуральное число n.Составить программу...

Составить программу формирования массива, элементами которого являются цифры числа N
Здравствуйте))) Хотел спросить правильно работает программа соответствует с условием задачи?? А то...

Составить программу для формирования массива, элементами которого являются цифры числа N
Дано Натуральное число N. Составить программу для формирования массива, элементами которого...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru