Запишите последовательность инструкций, после выполнения которых будет найдена сумма цифр 4-х разрядного числа. Заданное 4-х разрядное число обозначьте - n. Значение n запросить с клавиатуры.
Сумму цифр числа обозначьте - s.
Цифры числа обозначьте: x, y, z, с.
Примечание: x-младшая цифра числа; с - старшая цифра.
Например, если задано число n=2576,
тогда х=6; y=7; z=5; с=2;
сумма цифр s=6+7+5+2=20

Программа:
Pascal:

var

 f, years, weeks, days: integer;

begin

 readln(f);

 years := f div 365;

 weeks := (f - years * 365) div 7;

 days := f - years * 365 - weeks * 7;

 writeln(f, ' дней - это ', years, ' лет, ', weeks, ' недель, ', days, ' дней.');

end.

Объяснение:

В начале регистрируются переменные f, years, weeks, days. Далее - вводится число f (дней). Число полных лет - результат целочисленного деления f на 365. Число полных недель - результат целочисленного деления оставшегося количества дней на 7. Число дней - оставшиеся количество дней после определения years и weeks. В конце - вывод этих значений.

Результат:

1000

1000 дней - это 2 лет, 38 недель, 4 дней.

Відповідь:

program Pr1;

var

 a: array[1..10] of integer;

 i,k,n,s: integer;

 sr: real;

begin

 Randomize;

 k := 0;

 s := 0;

 for i := 1 to 10 do

 begin{формирование массива}

   a[i] := random(41) - 20;

   write(a[i]:5);

   if a[i] > 0 then

   begin

     S := S + A[i];

     n := n + 1;

   end;  

   if abs(a[i]) mod 10 = 7 then

     k := k + 1;

 end;

 writeln;

 WRITELN('Количество элементов на 8: ', k);  

 if n<>0 then

   begin

     SR := S / N;

     WRITELN('Среднее: ', SR);

   end

 else

   writeln('Нет отрицательных чисел.');

end.

Пояснення:

Здається так, давно не писав нічого на цій мові