Написать программу, которая после ввода пользователем трёхзначного числа вычисляет сумму его цифр.
10-11 класс
|
var a,a1,a2,a3 : integer;
begin
readln(a);
a1:=a div 100;
a2:=(a mod 100) div 10;
a3:=(a mod 100) mod 10;
writeln(a1+a2+a3);
end.
а - само число, а1-число сотен, а2-число десятков, а3-число единиц
Другие вопросы из категории
а) всех двузначных чисел;
б) всех трёхзначных чисел
f(x)= система x^2+4x+5, при x<или =0
1/(x^2+4x+5), в противном случае
Когда он выполнил задание, он решил сделать самопроверку, для этого он поднялся на три уровня вверх и спустился на два уровня вниз. Куда в итоге попал Ваня?
A) C: \Пользователи \ Громов Иван
B) C: \Пользователи Учитель
C) C: \Пользователи \ Учитель \Ответы
D) C: \Пользователи \ Громов Иван \Контрольные работы \Ответы
Читайте также
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
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.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
число, то выво-дится сообщение «Ошибка ввода данных»