С клавиатуры вводится натуральное число z. Вычислить: количество цифр в числе z; сумму цифр числа z; первую и последнюю цифры числа z.
Ответы
Ответ дал:
0
var
z,k,n,sum: integer;
s,a: string;
i: byte;
begin
write ('Введите число: ');
readln (z);
Str(z,s);
k:=length(s);
sum:=0;
for i:=1 to k do begin
a:=s[i];
n:=StrToInt(a);
sum:=sum+n;
end;
writeln ('Количество цифр в числе: ',k);
writeln ('Сумма цифр числа: ',sum);
writeln ('Первая цифра числа: ',s[1]);
writeln ('Последняя цифра числа: ',s[k]);
end.
------------результат:--------------
Введите число: 567854
Количество цифр в числе: 6
Сумма цифр числа: 35
Первая цифра числа: 5
Последняя цифра числа: 4
z,k,n,sum: integer;
s,a: string;
i: byte;
begin
write ('Введите число: ');
readln (z);
Str(z,s);
k:=length(s);
sum:=0;
for i:=1 to k do begin
a:=s[i];
n:=StrToInt(a);
sum:=sum+n;
end;
writeln ('Количество цифр в числе: ',k);
writeln ('Сумма цифр числа: ',sum);
writeln ('Первая цифра числа: ',s[1]);
writeln ('Последняя цифра числа: ',s[k]);
end.
------------результат:--------------
Введите число: 567854
Количество цифр в числе: 6
Сумма цифр числа: 35
Первая цифра числа: 5
Последняя цифра числа: 4
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад