Предмет: Информатика, автор: lianasuleimanowa2017

1) определить 1-ую цифру с конца 6-значного натурального числа
2)Дано натуральное число n. посчитать сумму цифр число n.

Ответы

Автор ответа: BrightOS
1

Если ты хочешь, чтобы я написал программу на языке программирования Pascal, тогда держи:

1) Если ты говоришь про разряд единиц, тогда вот программа:

Program pofignanazvanieprogrammi_1_1;

Var a:integer;

Begin

 write('Введите число -> ');

 readln(a);

 writeln(a mod 10);

End.

А если про разряд сотен тысяч, тогда:

Program pofignanazvanieprogrammi_1_2;

Var a:integer;

Begin

 write('Введите число -> ');

 readln(a);

 writeln(a div 100000);

End.

2) Угу, это легче.

Program chto_2;

Var a,S:integer;

Begin

 S:=0;

 write('Введите число -> ');

 readln(a);

 while a>=0 do

 begin

   S:=S+(a mod 10);

   a:=a div 10;

 end;

 writeln(S);

End.


lianasuleimanowa2017: спасибо большое)
Похожие вопросы
Предмет: Английский язык, автор: kristakmityuk2007