Денис
7 год назад
С клавиатуры вводится натуральное число z. Вычислить: количество цифр в числе z; сумму цифр числа z; первую и последнюю цифры числа z.
ОТВЕТЫ
Akinfievich
Jul 11, 2019
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
219
Смежные вопросы:
