Помогите написать программу вывести на экран последовательность 1/1,1/3,1/5,1/7,..(9 элементов) помогите написать программу вывода на экран 7 значений площади прямоугольного треугольника при увеличении его катета на 3 каждый ра...
Помогите написать программу
вывести на экран последовательность 1/1,1/3,1/5,1/7,..(9 элементов)
помогите написать программу вывода на
экран 7 значений площади прямоугольного треугольника при увеличении его катета на 3 каждый раз .ввод исходных данных осуществить с клавиатуры.Вывод в таблицу
Гость
Ответ(ы) на вопрос:
ГостьПервая программа:
program Z1;
var i:integer;
BEGIN
for i:=1 to 9 do
write('1/', 2*i-1, ' ');
End.
Вторая программа (посложнее), я поняла так, что меняется длина только одного катета, а не двух сразу:
program Z2;
var a,b,i:integer;
BEGIN
writeln('Введите значение первого катета');
readln(a);
writeln('Введите начальное значение второго катета');
readln(b);
for i:=1 to 7 do
begin
writeln('S',i,'=',a*b/2);
b:=b*3;
end;
END.
Не нашли ответ?
Похожие вопросы