Срочно, очень срочно нужно решить задачу через паскаль, используя рекурссию?
Срочно, очень срочно нужно решить задачу через паскаль, используя рекурссию!
Пожалуйста!
Заранее спасибо!
Помогите решить задачи по паскалю?
Помогите решить задачи по паскалю.
Срочно.
Срочно?
Срочно!
Помогите!
2 задачи в Паскале!
15 баллов.
Помогите решить?
Помогите решить.
Все задачи.
Через паскаль.
Помогите с задачей (Паскаль )?
Помогите с задачей (Паскаль ).
Помогите решить пожалуйста срочно задачу на паскале пожалуйста?
Помогите решить пожалуйста срочно задачу на паскале пожалуйста.
В ПАСКАЛЬ ПОЖАЛУЙСТА СРОЧНО?
В ПАСКАЛЬ ПОЖАЛУЙСТА СРОЧНО.
Помогите, пожалуйста, составить программу на языке Паскаль, задача на фото?
Помогите, пожалуйста, составить программу на языке Паскаль, задача на фото.
Помогите написать программы на языке Паскаль , пожалуйста срочно надо ?
Помогите написать программы на языке Паскаль , пожалуйста срочно надо !
ПАСКАЛЬ?
ПАСКАЛЬ!
ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧАМИ !
Вы открыли страницу вопроса Срочно?. Он относится к категории Информатика. Уровень сложности вопроса – для учащихся 10 - 11 классов. Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие ответы по интересующей теме. Чтобы получить наиболее развернутый ответ, можно просмотреть другие, похожие вопросы в категории Информатика, воспользовавшись поисковой системой, или ознакомиться с ответами других пользователей. Для расширения границ поиска создайте новый вопрос, используя ключевые слова. Введите его в строку, нажав кнопку вверху.
1)
var a : array[2.
5] of integer ; c, i, h : integer ; beginfor i : = 2 to 5 doa[i] : = 0 ; h : = 6 ; for i : = 1 to 10 do beginreadln(c) ; if c< ; h thencase c of5 : h : = 5 ; 4 : h : = 4 ; 3 : h : = 3 ; 2 : h : = 2 ; end ; a[c] : = a[c] + 1 ; end ; case h of5 : writeln('Отличник') ; 4 : writeln('Хорошист') ; 3 : writeln('Троечник') ; 2 : writeln('Двоечник') ; end ; end.
2)
var b1, b2 : real ; i : integer ; beginb1 : = 350000 + 350000 * 0.
1 ; b2 : = 350000 ; for i : = 1 to 12 dob2 : = b2 + b2 * 9 / 12 / 100 ; if b1> ; b2 thenwriteln('Банк 1 выгоднее на : ', b1 - b2)elsewriteln('Банк 2 выгоднее на : ', b2 - b1) ; end.