Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Разработка алгоритмов и программ с использованием указателей https://www.cyberforum.ru/ pascal/ thread68847.html
Найти сумму кубов всех отрицательных элементов массива A={a}, удовлетворяющих условию a>=c*d. Использовать динамическое выделение памяти.
Счастливый билетик Pascal
Вывести шестизначные номера „счастливых” билетов, сумма цифр которых равняется 22. Четырехзначное число является „счастливым”, если сумма двух первых цифр равняется сумме последних двух.
Pascal Файл Дан файл, который содержит список студентов. Вывести на экран тех студентов которые из города и 2 по предметам https://www.cyberforum.ru/ pascal/ thread68834.html Pascal Разработка алгоритмов и программ с анализом организации данных Постройте очередь из 7-ти символов - ‘k’, ‘l’,‘m’, ‘n’, ‘o’, ‘p’, ‘r’. Выведите из очереди три символа ‘l’, ‘m’, ‘r’ и добавьте в конец очереди символ ‘s’. Результаты как промежуточных, так и конечных результатов отобразить на экране. https://www.cyberforum.ru/ pascal/ thread68826.html
Разработка алгоритмов и программ с подключением модуля GRAPH Pascal
Создайте программу преобразования движущегося графического изображения прямоугольника из позитивной формы (черным цветом на белом фоне) в негативную форму и наоборот.
Pascal Определить номер строки и номер столбца матрицы Определить номер строки и номер столбца матрици Х(5, 6), на пересечении которых находиться наибольший по абсолютной величине элемент. ПЛИЗЗЗЗ ПОМОГИТЕ???? https://www.cyberforum.ru/ pascal/ thread68810.html
Pascal Найти сумму положительных элементов матрицы, находящихся в строках без нулевых элементов https://www.cyberforum.ru/ pascal/ thread68809.html
Вычислить сумму тех положительных элементов двумерного массива А, которые стоят в строках, не содержащих нулевых элементов
Дорешать. Pascal
препод говорит программа написна не полностью. помогиие пож. говорит нет ввода. я не понимаю. program variant 28; var a:array of integer; s,i,j: integer; begin for i:=1 to 5 do begin s:=0 for j:=1 to 5 do begin if a>0 then s:=s+a; end;
Pascal вычеркнить из слова х те буквы, которые встречаются в слове z https://www.cyberforum.ru/ pascal/ thread68805.html
Спасибо и еще одну задачу помоги пожалуйста.вычеркнить из слова х те буквы, которые встречаются в слове z
Pascal Последовательность Помогите с заданием. Произвести следующую обработку 15 целых чисел: найти количество четных чисел, а нечетные числа, входящие в диапазон возвести в квадрат. Задание нужно сделать не использую массивы. Через цикл. Заранее благодарю https://www.cyberforum.ru/ pascal/ thread68804.html
Pascal Массивы
Доброго времени суток) Помогите пожалуйста с решением задачи А). В одномерном массиве, состоящем из n вещественных элементов вычислить: 1. сумму отрицательных элементов массива; 2. произведение элементов массива, расположенных между максимальным и минимальным элементами. Упорядочить элементы массива по возрастанию. B). Дана целочисленная прямоугольная матрица. Определить: 1. кол-во строк,...
Pascal Вывести на печать массив https://www.cyberforum.ru/ pascal/ thread68801.html
Помогите решить пож. Дана действительная матрица А (5.6). Вывести на печать массив В(5). Элементы которого представляют собой среднее арифмитическое положительных элементов строки.
0 / 0 / 0
Регистрация: 05.10.2009
Сообщений: 22
0

число начинается и заканчивается одной цифрой - Pascal - Ответ 385943

30.11.2009, 12:24. Показов 1048. Ответов 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
program chislo;
uses crt;
var n,i,e,c,summ:integer;
    k:boolean;
    s:string;
    mas:array [1..100] of integer;
begin
clrscr;
 Writeln ('Vvedite chislo ');
 Readln (n);
 str (n,s);
 for i:=1 to length(s) do begin
                          Val (s[i],c,e);
                          Mas[i]:=C;
                          end;
 Write ('Cifry chisla ');
 For i:=1 to length(s) do
 write (mas[i]:3);
 Writeln;
 For i:=1 to length(s) do
 summ:=summ+mas[i];
 Writeln ('Summa cifr chisla N = ',summ);
 Readln
end.


Вернуться к обсуждению:
число начинается и заканчивается одной цифрой Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2009, 12:24
Готовые ответы и решения:

Определить трехзначное число, обладающим свойством :число начинается цифрой 4
Определить трехзначное число, обладающим свойством :число начинается цифрой 4. Если эту цифру...

Найти количество трехзначных чисел, сумма цифр которых равна A, а само число заканчивается цифрой B
Найти количество трехзначных чисел, сумма цифр которых равна A, а само число заканчивается цифрой B...

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В (А и В вводятся с клавиатуры)
Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В...

Дано натуральное число, верно ли, что данное число начинается на А, а заканчивается на B
Дано натуральное число,верно ли что данное число начинается на А, а заканчивается на B (A и B...

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

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В
Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой...

Верно ли, что число начинается и заканчивается одной и той же цифрой
1. Дано натуральное число. Верно ли, что число начинается и заканчивается одной и той же цифрой....

Верно ли, что число начинается и заканчивается одной и той же цифрой?
Дано натуральное число: − найти сумму цифр этого числа; − верно ли, что число начинается и...

Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой 4
Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой 4. Если эту...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru