Составить прогр. на языке паскаль для определения суммы цыфр в числе, введенного с клавиатуры. сост. програму на языке паскаль для нахождения суммы всех чисел на отрезке [1;10] Пожалуйста очень надо.

1

Ответы и объяснения

Лучший Ответ!
2012-05-22T17:41:51+04:00

uses crt;
var a,x:integer;
i,s:integer;
begin
clrscr;
writeln('Vvedite chislo');
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
s:= s + (x mod 10);
x:= x div 10;
end;
writeln( 'Summa cifr chisla ',a,'=', s );
readln;
end.

 

Сумма чисел от 1 до 10

uses crt;
var x,i:integer;
begin
clrscr;
for i:=1 to 10 do
x:=x+i;
writeln('Summa chisel =', x);
readln;
end.