var
N,sum,k: integer;
begin
sum:=0;
WriteLn('Введите N');
readln(N);
while N <=9 do
begin
writeln('Введите корректное число (больше или равное 10)');
readln(N);
end;
while N >=10 do
begin
k:= N mod 10;
N:= N div 10;
sum:= sum + k;
end;
sum:=sum + N;
write('Первая цифра числа ');
writeln(N);
write('Сума цифр числа ');
writeln(sum);
end.
<h2>Задание 1</h2>
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if x mod 2 = 0 then
- Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
- end.
<h2>Задание 2</h2>
Здесь стоит ввести ограничение на ввод, т.к если пользователь введёт x (x >= 100), то программа укажет, что это тоже двузначное число.
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if ((x > 9) or (x < -9)) then
- Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
- end.