Предмет: Информатика,
автор: Аноним
помогите какие знаете................ прошу помогите плиззз.......................
Решить задачи, составить программы:
1.Найти сумму цифр целого четырехзначного числа, и определить число,
цифры которого записаны в обратном порядку по отношению к исходному.
2.По введенному с клавиатуры аргументу вычислить значение функции.
3.Поменять местами значения двух переменных.
4. Написать программу ввода четырех чисел и вычисления их среднего арифметического.
5. Написать программу для вычисления дискриминанты квадратного уравнения.
6.Из железной полосы длиной L метров нужно изготовить обруч. На
соединение концов уходит D метров полосы. Написать программу вычисления
радиуса обруча.
7.Найти площадь конца, по введенным внешним и внутренним радиусам.
8.Найти расстояние между двумя точками по их координатам.
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Физика,
автор: nadeshkashishkova
Предмет: Химия,
автор: sokolovyroslav230119
Предмет: Биология,
автор: Aslan2289
Предмет: Алгебра,
автор: v2g
Предмет: Математика,
автор: 12334567890