Предмет: Информатика,
автор: lianasuleimanowa2017
1) определить 1-ую цифру с конца 6-значного натурального числа
2)Дано натуральное число n. посчитать сумму цифр число n.
Ответы
Автор ответа:
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
Предмет: Английский язык,
автор: topdoner5
Предмет: Математика,
автор: alayaamangeldina
Предмет: География,
автор: Карт8ель
Предмет: Математика,
автор: Аноним