Написать программу которая определит сумму всех цифр пятизначного числа x(вводят...

July 2022 1 0 Report

Написать программу которая определит сумму всех цифр пятизначного числа x(вводятся с клавиатуры) и вывести на экран сообщение.И определить заканчивается эта сумма на 3,является ли эта сумма четным

Answers & Comments

Студэнt

Verified answer

//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
var sum:=0;
repeat
sum+=x mod 10;
x:=x div 10;
until x=0;
writeln ('Сумма цифр: ', sum);
writeln ('Сумма заканчивается на 3: ', (sum mod 10)=3);
writeln ('Сумма четная - ', sum.Iseven);
end.

Answers & Comments

Verified answer

dar treugolnik so stranami 4sm6sm i 8sm

vvesti chisloesli ono chetnoe razdelit ego na 4esli nechetnoe trudnost na 5

reshite pozhalujsta slozhnost 8 klassa srochno

napisat programmu kotoraya summu vseh cifr pyatiznachnogo chisla h kotoryj vvoditsya

na vhod programme podayutsya celye chisla x i yneobhodimo umenshit na 100 to chisl77f6bbe9d65a502a617e9670a2d0968b 22212

na vhod programme podayutsya celye chisla x i yneobhodimo umenshit na 100 to chisl

dano trehznachnoe chislo verno li chto summa ego cifer bolshe 10 slozhnost 8 klas

рекомендуемые вопросы

Helpful Links

Helpful Social