ВВЕСТИ НАТУРАЛЬНОЕ ЧИСЛО И НАЙТИ СУММУ ЕГО ЦИФР ЧЕРЕЗ

готово

Объяснение:

program summa;

var

  n, s: integer;

begin

 Write('Введите натуральное число n >> ');

 ReadLn(n);

 while n >= 10 do

 begin

   s := s + n mod 10;

   n := n div 10;

 end;

 s := s + n;

 WriteLn('Сумма цифр числа равна ', s);

end.

1)

s : = 0;

for i : = 1 to k do

begin

  if i mod 2 < > 0 then

      s: = s + i;

end;

2)

for i : = 5 to 55 do

begin

  if i mod 2 < > 0 then

      writeln(i);

end;

3)

s : = 1;

for i : = n to m do

begin

  s: = s * i;

end;

4)

s : = 0;

for i : = 10 to 15 do

begin

        s: = s + i;

end;

обрамления там везде одинаковые

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.