489. Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла f не равна нулю. Числа в файле идут в следующем порядке: десять положительных, десять отрицательных, десять положительных, десять отрицательных и т. д. Переписать компоненты файла f в файл g так, чтобы в файле g числа шли в следующем порядке: а) пять положительных, пять отрицательных, пять положительных, пять отрицательных и т. д.:
б) двадцать положительных, двадцать отрицательных, двадцать положительных, двадцать отрицательных и т. д. (предполагается, что число компонент файла/делится на 40).
490. Дан файл f, компоненты которого являются целыми числами. Число компонент файла делится на 100. Записать в файл g наибольшее значение первых ста компонент файла f, затем— следующих ста компонент и т. д.

👇

Открыть все ответы

Ответ:

Danilkez

01.06.2023

Если каждый месяц ( точнее первого числа каждого месяца от марта до декабря(*первого , то есть декабрь не будет посчитан, так как чтобы получить проценты за декабрь нужно подождать до января(опять же первого) но мы получим данные за ноябрь)) получать проценты вплоть до декабря, то получится сумма ≈1 171,7руб.

Вот данные для каждого месяца по отдельности(месяц будет указан как цифра(из-за большого остатка , будет сокращение до копеек):

Март(3) - 1000руб.

01.4- 1020 руб(за март%)

01.5- 1040,4 руб

01.6- 1061.20 руб

01.7- 1082.43 руб

01.8- 1104,08 руб

01.9- 1126,16 руб

01.10- 1148,69 руб

01.11- 1171,66 руб

01.12- 1 195,09 руб(за Ноябрь%)

Удачи °ω⁻

4,8(71 оценок)

Ответ:

asdghkbf

01.06.2023

Var
n,t,s,d,e:integer;
begin
writeln('');
repeat
writeln('Введите сумму в рублях<=1000');
readln(n);
until (n>0) and (n<=1000);
t:=n div 1000;
n:=n-t*1000;
s:=n div 100;
n:=n-s*100;
d:=n div 10;
if d<>1 then
begin
n:=n-d*10;
e:=n;
end;
case t of
     1:write('тысяча ');
end;
if s>=0 then
case s of
     1:write('сто ');
     2:write('двести ');
     3:write('триста ');
     4:write('четыресто ');
     5:write('пятьсот ');
     6:write('шестьсот ');
     7:write('семьсот ');
     8:write('восемьсот ');
     9:write('девятьсот ');
end;
if d>=0 then
case d of
     1:
     case n of
     10: write('десять ');
     11: write('одиннадцать ');
     12: write('двенадцать ');
     13: write('тринадцать ');
     14: write('четырнадцать ');
     15: write('пятнадцать ');
     16: write('шестнадцать ');
     17: write('семнадцать ');
     18: write('восемнадцать ');
     19: write('девятнадцать ');
     end;
     2:write('двадцать ');
     3:write('тридцать ');
     4:write('сорок ');
     5:write('пятьдесят ');
     6:write('шестьдесят ');
     7:write('семьдесят ');
     8:write('восемьдесят ');
     9:write('девяносто ');
end;
if e>=0 then
case e of
     1:write('один ');
     2:write('два ');
     3:write('три ');
     4:write('четыре ');
     5:write('пять ');
     6:write('шесть ');
     7:write('семь ');
     8:write('восемь ');
     9:write('девять ');
end;
if (e=1) then write('рубль ')
else if (e=0)or(e>4) then write('рублей ')
else write('рубля ');
end.

4,5(3 оценок)

Это интересно:

Компьютеры-и-электроника

23.09.2020

5 шагов, чтобы легко добавить названия к графикам в Excel...

Стиль-и-уход-за-собой

11.12.2022

Как ухаживать за кожей после шугаринга...

Искусство-и-развлечения

30.05.2021

Как стать пресс-агентом: советы от профессионалов...

Образование-и-коммуникации