найдите сумму цифр четырёхзначного числа 1234 на языке паскаль.
5-9 класс
|
var a,b,c,d,x:integer;
begin
x:=1234;
a:=x mod 10;
b:=((x mod 100) div 10);
c:=((x mod 1000) div 100);
d:=x div 1000;
x:=a+b+c+d;
writeln (x);
end.
Другие вопросы из категории
Если компьютер связан с другими компьютерами то на рабочем столе обязательно присутствует значок ................... .
Что надо поставить в пропуск ............... . ? Помогите!
Составьте программу, которая определяет сколько слагаемых должно быть в сумме 1+2²+3²+4²...что бы эта суммма оказалась больше 200
Срставьте программу, вычисления количества двухзначных чисел которые деляться на сумму своих цифр
Читайте также
или во втором сумма цифр этого числа будет равна 9.)
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
Вот задача:
Найти сумму цифр данного числа
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль