сервис вопросов и ответовПомогите, пожалуйста, составить программу, в паскале, нахождения суммы цифр четырехзначного числа
10-11 класс|
|
Katekoblova
01 окт. 2013 г., 17:58:44 (10 лет назад)
Sweettime29
01 окт. 2013 г., 20:58:21 (10 лет назад)
var
a: 1000..9999; //Четырехзначное число
a1, a2, a3, a4: 1..9;
begin
writeln('Введите четырехзначное число');
readln(a);
a1:= a mod 10; //Первая с конца цифра
a2:= (a mod 100) div 10; //Вторая с конца цифра
a3:= (a mod 1000) div 100; //Третья с конца цифра
a4:= a div 1000; //Четвертая с конца цифра
writeln('Сумма цифр данного числа: ', a1 + a2 + a3 + a4); //Сумма цифр
end.
Ответить
Другие вопросы из категории
program klass; type ocenki=record name:string[15]; marks: array [1..5] of integer; end; var a,k,i:integer;
c:array [1..5] of ocenki;
begin k:=0;
For i:=1 to 5 do
With c[i] do
begin
write('vvedite name'); readln(name);
write('vvedine marks');
for i:=1 to 5 do read(marks[i]);
a:=i;
if c[a].marks < 2 (вот здесь выдает что операнды имеют неприводимые типы) then k:=k+1; writeln(k);
end;
end.
(Подскажите пожалуйста где допустила ошибку)
Автомат получает на вход 3х значное 10тичное число. По этому числу строится новое, по следующим правилам. 1) Перемножаются 1 и 2, а также 2 и 3я
цифры числа.
2) Полученные 2 числа записываются друг с другом в порядке возрастания (баз разделителей)
Определите, какое из чисел может быть результатом работы автомата.
1)197 2)1218 3)186 4)777
Паскаль
Хватит ли денег ученику чтобы купить N тетрадей в линию по S рублей и K тетрадей в клетку по L рублей, если у него M рублей?
Читайте также
Здравствуйте, уважаемые :) Помогите пожалуйста составить программу на Паскале. Спасибо огромное!
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду щего элемента;
3-й-равен сумме двух предыдущих элементов.
Помогите пожалуйста написать программу в паскале.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
Дан прямоугольный массив целых положительных чисел 10 х 20. Опишите на русском языке или на одном из языков программирования алгоритм поиска строки с
наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.
помогите пожалуйста составить программу в Паскале!!
Помогите пожалуйста составить программу в Паскале: Дан
целочисленный массив из N элементов.
Вывести на экран сумму всех четных чисел
в этом массиве.
Вы находитесь на странице вопроса "Помогите, пожалуйста, составить программу, в паскале, нахождения суммы цифр четырехзначного числа", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.