помогите какие знаете................ прошу помогите плиззз.......................Решить

Помогите какие понимаете................ прошу помогите плиззз.......................
Решить задачки, составить программки:
1.Найти сумму цифр целого четырехзначного числа, и найти число,
цифры которого записаны в обратном порядку по отношению к начальному.
2.По введенному с клавиатуры доводу вычислить значение функции.
3.Поменять местами значения 2-ух переменных.
4. Написать программку ввода 4 чисел и вычисления их среднего арифметического.
5. Написать программу для вычисления дискриминанты квадратного уравнения.
6.Из стальной полосы длиной L метров необходимо изготовить обруч. На
соединение концов уходит D метров полосы. Написать программу вычисления
радиуса обруча.
7.Отыскать площадь конца, по введенным наружным и внутренним радиусам.
8.Найти расстояние меж двумя точками по их координатам
.

Задать свой вопрос
1 ответ
4)
Var i,S,a,sa:integer;
begin
 for i:=1 to 4 do brgin
 readln(a); S:=S+a; end;
sa:=S/4;
writeln('Среднее арефметическое: ',sa);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт