Помогите , пожалуйста ,по информатике 9 класс программирование 1 и 2 задание) плиииз

0 голосов
33 просмотров

Помогите , пожалуйста ,по информатике 9 класс программирование
1 и 2 задание) плиииз


image

Информатика (149 баллов) | 33 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Program ex4;

Var
   m,n:longint;
   S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
   Begin
   S:=S+(m mod 10);
   m:=m div 10;
   End;
WriteLn('Сумма цифр равна: ',S);
End.




Program ex4;

Var
   m,n:longint;
   S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
   Begin
   S:=m mod 10;
   m:=m div 10;
   End;
WriteLn('Первая цифра числа: ',S);
End.

(34.0k баллов)