помогите какие знаете................ прошу помогите плиззз.......................
Решить задачи, составить программы:
1.Найти сумму цифр целого четырехзначного числа, и определить число,
цифры которого записаны в обратном порядку по отношению к исходному.
2.По введенному с клавиатуры аргументу вычислить значение функции.
3.Поменять местами значения двух переменных.
4. Написать программу ввода четырех чисел и вычисления их среднего арифметического.
5. Написать программу для вычисления дискриминанты квадратного уравнения.
6.Из железной полосы длиной L метров нужно изготовить обруч. На
соединение концов уходит D метров полосы. Написать программу вычисления
радиуса обруча.
7.Найти площадь конца, по введенным внешним и внутренним радиусам.
8.Найти расстояние между двумя точками по их координатам.
Ответы на вопрос
Ответил ZaharovVasya
0
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.
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.
Новые вопросы
Математика,
2 года назад
Українська мова,
2 года назад
Обществознание,
9 лет назад
Математика,
9 лет назад
Литература,
9 лет назад