Язык программирования Pascal. Линейные программы. Васильев В.В - 15 стр.

UptoLike

Составители:

Рубрика:

• количества десятков в заданном числе – k2,

• количества сотен в заданном числе – k3,

• частного от последовательного целочисленного деления числа на десять –

• суммы цифр заданного трехзначного числа – s.

Тогда s=k1+k2+k3. Опишем процесс нахождения количества единиц , де-

сятков и сотен в заданном числе k.

k1=остаток от деления k на 10.

r=частное от деления k на 10. k2=остаток от деления r на 10.

r=частное от деления r на 10. k3=остаток от деления r на 10.

5. Блок-схема.

6. Программа.

Program Summa_cifr;

Uses Crt;

Var k,k1,k2,k3,r,s:integer;

Begin

{оформление фона и символов}

textbackground(White);ClrScr; textcolor(Blue);

{ввод целого трехзначного числа}

write('Введите целое трехзначное число:'); readln(k);

{вычисление количества единиц}