Дано натуральное число, определите сумму всех его цифр

@qweex3228 · Регистрация: 06.02.2017

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

Дано натуральное число, определите сумму всех его цифр. Решение нужно через цикл goto. Спасибо огромное заранее))

@ZX Spectrum-128 · 06.02.2017, 19:02

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

через цикл goto

Нет такого цикла.

Pascal

var
  c, Sum: integer;
 
begin
  sum := 0;
  write('Введите число: ');
  readln(c);
  while c > 0 do
  begin
    sum := sum + c mod 10;
    c := c div 10;
  end;
  writeln('Сумма цифр: ', sum);
end.

@qweex3228 · 06.02.2017, 19:13 **[ТС]**

не через while эту задачу нельзя решить? просто мы ещё не знаем этого цикла

@Alexandr212 · 06.02.2017, 19:21

Мда, прошли goto, но не прошли while, странная программа, но все же, вот извращенный вариант программы выше через goto:

Pascal

label
v;
var
  c, Sum: integer;
 
begin
  sum := 0;
  write('Введите число: ');
  readln(c);
  v:
  sum := sum + c mod 10;
  c := c div 10;
  if c <> 0
    then goto v;
  writeln('Сумма цифр: ', sum);
end.

@Puporev · 06.02.2017, 19:23

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

Мда, прошли goto, но не прошли while,

Видимо у препода большое бейсиковское прошлое.

@Alexandr212 · 06.02.2017, 19:25

Кто знает

@qweex3228 · 06.02.2017, 19:43 **[ТС]**

благодарю, вот реально очень помог)

@v_veliki · 06.02.2017, 21:25

можно фором через строки

Pascal

begin
readln(t);
n:=length(t);
for i:=1 to n do
sum:=sum+ord(t[i])-48;
writeln(sum);
end.

@qweex3228 0 / 0 / 0 Регистрация: 06.02.2017 Сообщений: 6
		1
	Дано натуральное число, определите сумму всех его цифр 06.02.2017, 18:57. Показов 8421. Ответов 7 Метки нет (Все метки) Дано натуральное число, определите сумму всех его цифр. Решение нужно через цикл goto. Спасибо огромное заранее)) 0

@qweex3228 0 / 0 / 0 Регистрация: 06.02.2017 Сообщений: 6
	06.02.2017, 19:13 [ТС]	3
	не через while эту задачу нельзя решить? просто мы ещё не знаем этого цикла 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	06.02.2017, 19:23	5
	Сообщение от Alexandr212 Мда, прошли goto, но не прошли while, Видимо у препода большое бейсиковское прошлое. 0

@Alexandr212 101 / 97 / 112 Регистрация: 28.11.2016 Сообщений: 528
	06.02.2017, 19:25	6
	Кто знает 0

@qweex3228 0 / 0 / 0 Регистрация: 06.02.2017 Сообщений: 6
	06.02.2017, 19:43 [ТС]	7
	благодарю, вот реально очень помог) 0

	06.02.2017, 21:25

Опции темы