writeln(f, ' дней - это ', years, ' лет, ', weeks, ' недель, ', days, ' дней.');
end.
Объяснение:
В начале регистрируются переменные f, years, weeks, days. Далее - вводится число f (дней). Число полных лет - результат целочисленного деления f на 365. Число полных недель - результат целочисленного деления оставшегося количества дней на 7. Число дней - оставшиеся количество дней после определения years и weeks. В конце - вывод этих значений.
Программа:
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.
Пояснення:
Здається так, давно не писав нічого на цій мові