Решение задичи на Паскале

[Arigato]

_-Re@l-_
Остаток от деления числа на 10 даёт последнюю цифру. Целочисленным делением числа на 10 можно убрать последнюю цифру.

[ROMA2PVT]

Uses crt;
var
   k,sum: integer;
begin
Clrscr;
     Write('Введите число: ');
     Readln(k);
     sum:=0;
     while k>0 do
           begin
                sum:=sum+(k mod 10);
                k:= k div 10;
           end;

    WriteLn('Сумма цифр числа равна: ',sum);
end.

Ток _-Re@l-_ надо свою тему создавать а не лезть в чужую.

[Жека-старший]

Как с помощью цикла while do найти сумму цифр данного числа?

sum:=0;
while ch<>0 do
begin
  sum:=sum+(ch mod 10);
  ch:=ch div 10;
end;
writeln('Сумма- ',ch);

[DarkGhost]

Решение задачи на Паскале. 'Заданы три числа a,b,c,проверить Пифагоровы ли эти числа'. Кто может помогите пожалуйста)

[ROMA2PVT]

Это примитивнейшая задача.Её очень легко реализовать.

program pifagor;
  uses crt;
    var
     a:integer;
     b:integer;
     c:integer;
    begin
     clrscr;
       writeln('Введите первое число');
       readln(a);
       writeln('Введите второе число');
       readln(b);
       writeln('Введите третье число');
       readln(c);
           if (c*c=a*a+b*b) or (a*a=c*c+b*b) or (b*b=a*a+c*c) then 
               begin
                 writeln('Числа пифагоровы.' );
              end
           else
                 writeln('Числа не пифагоровы.');
                 readln;
    end.

И не лезте в чужую тему в следующий раз.

[DarkGhost]

Спасибо большое))

[ROMA2PVT]

Не за что.

[Tekmessa]

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

Takmessa писала

Задачу нужно рассматривать в общем плане,а не в частности...

while Pos(c,st)<>0 do
  delete(st,Pos(c,st),1)

А с блок схемой не поможешь, очень прошу