сервис вопросов и ответовНайдите сумму цифр четырёх значнего числа?
10-11 класс|
|
турник
14 февр. 2015 г., 18:41:23 (9 лет назад)
RapWoyska48
14 февр. 2015 г., 21:20:11 (9 лет назад)
В общем вот программа на Pascal:
var
a,i,sum:integer;
begin
sum:=0;
writeln('vvedite chislo');
readln(a);
if ((a div 10000) <1) and ((a div 1000)>0) then
begin for i:=1 to 4 do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
writeln(sum);
end
else
writeln('ne 4-h znachnoe');
readln;
end.
Ответить
Другие вопросы из категории
Определите значение переменной s после выполнения следующего фрагмента программы:
s:=0; i:=7;
while i > 1 do begin
s:= s + i div 2;
i:= i - 1;
end;
Дано действительное число x. Вычислить:
(x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64)
pascal abc
Вот как моя программа выглядит, но она не работает.
program fggt;
var a,b,o,x:real;
begin
writeln('x');
readln(x);
a:=1;
b:=2;
while a<=63 do
begin
o:=(x-a)/(x-b);
a:=a-1;
b:=b*2;
end;
writeln('o=',o);
end.
Читайте также
Решить задачи • Найдите сумму цифр числа; • Найдите первую цифру числа; • Поменяйте порядок цифр числа на обратный; • Найдите количество четных цифр
числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.
Всем привет! Помогите пожалуйста по информатике. Задача: ввести целое число и найти сумму его цифр. Пример: введите целое число:1234. Сумма цифр числа 1
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да
Дано натуральное число N. Найти наименьшее число М (N < M < 2N) которое делится на сумму цифр числа N (без остатка). Если такого числа нет, то
вывести слово «нет». Пример. N = 12 345, М = 12360. Число 12 360 делится на число 15 — сумму цифр числа N
1) Написать программу для вычисления суммы цифр пятизначного числа , введенного с клавиатура
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
Вы находитесь на странице вопроса "Найдите сумму цифр четырёх значнего числа?", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.