сервис вопросов и ответовНаписать программу для нахождения суммы цифр, составляющих число произвольной длины.Написать программу, позволяющую определить, сколько заданных символов
10-11 класс|
|
в данной фразе (искомые символы и фраза вводятся с клавиатуры. Например, сколько букв А и а в слове АбракАдабрА)
яксатово
04 марта 2015 г., 7:39:39 (9 лет назад)
Valeri97
04 марта 2015 г., 9:30:26 (9 лет назад)
пункт а:
Насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. Например если вы введете число из 9001 символа, программа будет работать неккоректно. Для выхода из цикла используется 'метка'.
a, counter, Summa : integer;
Label Transfer;
Begin
writeln('Введите число');
readln(a);
counter := 1;
counterTw0 := counterTwo + 1;
while counter < 9000 Do
begin
counter := counter +1;
if (a div counter) < 0 then Transfer
else counterTwo := counterTwo + 1;
else;
Goto Transfer;
//Узнали, что в числе counterTwo символов
while counter < counterTwo Do
Summa := Summa + ((a div counter) mod 10);
Summa := Summa + (a mod 10);
writeln(Summa);
end.
Ответить
Другие вопросы из категории
В каком российском городе
установлен памятник одному из самых распространённых устройств ввода текстовой
информации?
а) в Москве б) в Екатеринбурге в) в Казане г) в Уфе
Читайте также
1) Написать программу для вычисления суммы цифр пятизначного числа , введенного с клавиатура
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
Изначально, задача была такая: На вход программы подается натуральное число. Требуется написать программу, которая определяет составное или простое число
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
program sg3;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('Простое')
else writeln('Составное');
readln;
end.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль
Код программы в PASCAL, СРОЧНО! Условие: Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр
произвольного натурального числа).
1. Составить программу для нахождения наибольшего числа из трех чисел.
2. Составить программу для упорядоченное двух элементов по убыванию.
В PascalABC нужно написать такого рода программу:
Написать программу для нахождения среднего арифметического модулей двух чисел.
Вы находитесь на странице вопроса "Написать программу для нахождения суммы цифр, составляющих число произвольной длины.Написать программу, позволяющую определить, сколько заданных символов", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.