Рубрика Borland Turbo Pascal

Данную тему задали в курсовую работу. И нужно было, чтобы программа считала спокойно не менее 500!

Поиск минимального числа из всех введенных.

Поиск максимального числа из всех введенных.

Образец решения квадратного уравнения, пригодится в будущем.

Программа должна уметь бросать по две кости нужное количество раз и выводить результат по обеим, их сумму и общее число.

Дано вещественное число A и целое число N (> 0). Вывести A в степени N: AN = A·A·…·A (числа A перемножаются N раз).

Дано целое число в диапазоне 0 – 9. Вывести строку — название соответствующей цифры на русском языке (0 — «ноль», 1 — «один», 2 — «два», …).

Дан номер месяца (1 — январь, 2 — февраль, …). Вывести название соответствующего времени года («зима», «весна» и т.д.).

Program begin62; Uses crt; Var a:integer; begin ClrScr; WriteLn (‘Введите a’); ReadLn (a); if (a>(-100)) and (a<(-9)) then WriteLn (‘Отрицательно двузначное’) else if (a=0) then WriteLn (‘Нулевое число’) else if (a>0) and (a<10) then WriteLn (‘Положительное однозначное’); ReadLn end. Дано… Читать далее →

Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять)