Поделитесь своими знаниями, ответьте на вопрос:
3-ТОҚСАН БОЙЫНША ЖИЫНТЫҚ БАҒАЛАУҒА АРНАЛҒАН ТАПСЫРМАЛАР «Программалар ды құрудың кіріктірілген орталары» бөлімі бойынша жиынтық бағалау ТапсырмаБерілген бағдарламалық қамтамасыз ету түрлері мен анықтамаларын сәйкестендіріңіз.БағдарламалықАнықтамақамсыздандыруАрнайы бір саланың есебін шешуге арналғанЖүйелікқосымшаларды құруға арналған бағдарламаларКомпьютердің құрылғылары мен бағдарламаларарасында байланыс орнататын бағдарламаларҚолданбалыҚолданушының бір мақсатта жұмыс жасауынаарналған бағдарламалар«Программалау жүйелері» ұғымын анықтайтын тұжырымдарды «иә» немесе «жоқ» деп белгілеңіз.Қолданбалы есептерді шешедіБағдарламашылар жұмыс жасайдыАрнайы бір есепті шешуге арналған бағдарламаКөмекші жүйелік бағдарламаларҚайталау параметрін бағдарламалау тілінде жазылу синтаксисін толықтырыңыз. for to do 1..10 дейінгі оң сандар тізбегі берілген. Программаны өңдеудің кіріктірілген ортасында сандардың қосындысын есептейтін бағдарлама алгоритмін жазыңыз.
X,Y,K:integer;
E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.
Пример:
Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.