Составить программы в паскале: 1. Составить алгоритм и программу для нахождения значения...

Question

Составить программы в паскале: 1. Составить алгоритм и программу для нахождения значения выражения: Y=(a mod b)*(c div b)
2. Напишите программу для вычисления выражения: X=(а + (d - 12) *3) * (с - 5*k), значения переменных а, d, с и k вводятся с клавиатуры.

Comments

Обязательно в паскале? 

---

Да,  обязательно  в паскале и все как надо, чтобы и clrscr было и  разветвление если надо и алгортитм

Answer 1

1.
Var a,b,c : Integer;
Begin
  Readln(a,b,c);
  Writeln((a mod b)*(c div b));
end.

2.

Var a,d,c,k : Integer;
Begin
  Readln(a,d,c,k);
  Writeln((a+(d-12)*3)*(c-5*k));
end.

Comments

И в чём же нарушение? Или выдаёте своё отсутствие знаний за экспертную оценку?

---

Нарушение в том, что ответ не полный ибо данная задача должна решаться по более полному способу (с добавлением новых переменных), а также отсутствие АЛГОРИТМА, который я просил в вопросе. Если я сюда иду, это не значит, что я не разбираюсь в дз, это значит, что мне лень его делать. И баллов я всегда предлагаю за свои задачи 50-100, это вполне неплохо. чтобы составить нормальный ответ, а не тяп ляп. 

---

Во всяком случае мы на уроках информатики и так как нас заставляет учительница пишем все это по более длинному способу и уж точно не так коротко.

---

Добавь алгоритм, доработай программу и отмечу как лучший.

---

1. На счёт баллов "свистеть" не надо - Вы лично дали 22 балла за эту задачу.

---

2. Мне, как и Вам так же лениво делать некоторые вещи, например "алгоритм".

---

3. Краткость - сестра таланта: Вы только "опосля" выложили уточняющие условия про "отдельные" переменные. Изначально условие выполнено - результат предоставлен и уж конечно Вы сами можете доработать под свои "более полные" условия.

---

Так что можете оставить себе своё "лучшее решение" - я за балами не гоняюсь.