Найти количество и сумму цифр, сумму первой и последней цифр заданного числа z

@Холопсикон · Регистрация: 09.06.2018

Студворк — интернет-сервис помощи студентам

Дано число z. Найти: количество цыфр в нём, сумму цыфр числа z, первую та последнюю цыфры числа z. Что не так?

Pascal

Var
  s,z,summ:integer;
begin
 readln(z);
 s:=0;
 summ:=z mod 10;
 while z>10 do
 z:=z div 10;
 summ:=summ+z;
 writeln(summ);
 while z>0 do
 begin
 inc(s,z);
 dec(z);
 end;
 writeln(s);
 readln;
end.

@Puporev · 20.10.2018, 19:40

Слово "цыфра" пишется через и.

Pascal

var z,k,s,p:integer;
begin
readln(z);
p:=z mod 10;
k:=1;
s:=0;
while z>9 do
 begin
  s:=s+z mod 10;
  k:=k+1;
  z:=z div 10;
 end;
writeln('Количество цифр=',k,' сумма цифр=',s,' первая цифра=',z,' последняя цифра=',p);
readln;
end.

Опции темы