Найти сумму цифр числа; определить, что число начинается и заканчивается одной и той же цифрой

@11Иван1994 · Регистрация: 03.06.2014

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

с делфи ,сам не программист,но как предмет поставили.Очень надеюсь на вас

Дано натуральное число:найти сумму цифр этого числа;определить,верно ли ,что число начинается и заканчивается одной и той же цифрой.

@newyork7776 · 04.06.2014, 02:28

Delphi

var suma,a,number:integer;
    count:integer;
    q:boolean;
begin
  q:=false;
  count:=0;suma:=0;
  Write('Enter number = ');readln(number);
  a:=number;
        while (a<>0) do
          begin
            suma:=suma+(a mod 10);
            a:=a div 10;
            inc(count);
          end;
        Writeln('Count = ',count);
        Writeln('Suma = ',suma);
  a:=number;
        while count<>1 do
          begin
            a:=a div 10;
            dec(count);
          end;
  if ((a)=(number mod 10)) then q:=True;
  if (q) then Writeln('First = Last')
  else Writeln('First <> Last');
    readln;
end.

@11Иван1994 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 3
		1
	Найти сумму цифр числа; определить, что число начинается и заканчивается одной и той же цифрой 03.06.2014, 23:32. Показов 2014. Ответов 1 Метки нет (Все метки) с делфи ,сам не программист,но как предмет поставили.Очень надеюсь на вас Дано натуральное число:найти сумму цифр этого числа;определить,верно ли ,что число начинается и заканчивается одной и той же цифрой. 0

Опции темы

Найти сумму цифр числа; определить, что число начинается и заканчивается одной и той же цифрой

Решение