Задача в Паскале

mariicka · 19.05.2015, 18:31

Помогите решить задачу.Вот что у меня получилось, но это не правильно.

program prim1;
var m, n: integer;
k: integer;
begin
writeln('Введите N=');
readln(n);
m:=n;k:=0;
while m <>0 do
begin
k:=k+1; m:= m div 10;
end;
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.

mariicka · 19.05.2015, 18:32

под буквой г

MagentaTiger · 19.05.2015, 18:45

Только пункт Г нужен или что ?

mariicka · 19.05.2015, 19:28

да. только г

Vladimir_S · 19.05.2015, 19:37

Цитата:

Сообщение от mariicka

Помогите решить задачу.

Да пожалуйста - делов-то куча...

Код:

Var
 n,Sign,Sum2:Integer;
 Num,Sum1,First,i:Byte;

Begin
 Write('n = ');
 Readln(n);
 Num:=Trunc(Ln(n)/Ln(10))+1;
 if (Num mod 2)=1 then Sign:=1 else Sign:=-1;
 Sum1:=0;
 Sum2:=0;
 for i:=1 to Num do
  begin
   First:=(n mod 10);
   Sum1:=Sum1+First;
   Sum2:=Sum2+Sign*First;
   Sign:=-Sign;
   n:=n div 10;
  end;
 Writeln('Number of digits = ',Num);
 Writeln('Sum of digits = ',Sum1);
 Writeln('First digit = ',First);
 Writeln('Alternating sum of digits = ',Sum2);
End.

Евгений · 19.05.2015, 20:10

У меня другой вариант:

uses SysUtils;
var n,i,sum:integer;
s:string;
begin
Write('Chislo = ');
Readln(n);
s:=IntToStr(n);
sum:=0;
for i:=1 to Length(s) do
if (i mod 2)<>0 then
sum:=sum+(Ord(s[i])-Ord('0'))
else
sum:=sum-(Ord(s[i])-Ord('0'));
Writeln('Summa = ',sum);
Readln;
end.

mariicka · 19.05.2015, 21:13

Евгений, спасибо за решение, поясните пожалуйста эту строку.
sum:=sum+(Ord(s[i])-Ord('0'))

Евгений · 19.05.2015, 21:38

У Владимира более математически.

sum:=sum+(Ord(s[i])-Ord('0')) - берём код символа, вычитаем из него код ноля и прибавляем (или вычитаем ) к сумме.

19.05.2015, 18:31	#1 (permalink)
mariicka Новичок Регистрация: 19.05.2015 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача в Паскале Помогите решить задачу.Вот что у меня получилось, но это не правильно. program prim1; var m, n: integer; k: integer; begin writeln('Введите N='); readln(n); m:=n;k:=0; while m <>0 do begin k:=k+1; m:= m div 10; end; writeln('B числе ',n,'- ',k, ' цифр!'); readln; end. Миниатюры

19.05.2015, 21:38	#8 (permalink)
Евгений Member Регистрация: 31.03.2010 Адрес: Тульская область Сообщений: 1,309 Сказал(а) спасибо: 11 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 13090	У Владимира более математически. sum:=sum+(Ord(s[i])-Ord('0')) - берём код символа, вычитаем из него код ноля и прибавляем (или вычитаем ) к сумме. Последний раз редактировалось Евгений; 19.05.2015 в 21:47

19.05.2015, 18:31
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Прочитайте какие нибудь из похожих тем, это не займет много времени Задача на Паскале аbс Задача в Паскале Задача на Паскале

19.05.2015, 18:32	#2 (permalink)
mariicka Новичок Регистрация: 19.05.2015 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	под буквой г

19.05.2015, 18:45	#3 (permalink)
MagentaTiger Специалист Регистрация: 27.04.2015 Адрес: Москва Сообщений: 1,423 Записей в дневнике: 4 Сказал(а) спасибо: 52 Поблагодарили 53 раз(а) в 16 сообщениях Репутация: 18120	Только пункт Г нужен или что ?

19.05.2015, 19:28	#4 (permalink)
mariicka Новичок Регистрация: 19.05.2015 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	да. только г

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

19.05.2015, 20:10	#6 (permalink)
Евгений Member Регистрация: 31.03.2010 Адрес: Тульская область Сообщений: 1,309 Сказал(а) спасибо: 11 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 13090	У меня другой вариант: uses SysUtils; var n,i,sum:integer; s:string; begin Write('Chislo = '); Readln(n); s:=IntToStr(n); sum:=0; for i:=1 to Length(s) do if (i mod 2)<>0 then sum:=sum+(Ord(s[i])-Ord('0')) else sum:=sum-(Ord(s[i])-Ord('0')); Writeln('Summa = ',sum); Readln; end.

19.05.2015, 21:13	#7 (permalink)
mariicka Новичок Регистрация: 19.05.2015 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Евгений, спасибо за решение, поясните пожалуйста эту строку. sum:=sum+(Ord(s[i])-Ord('0'))