найти результат вычисления арифметического выражения y=a(x+1), где a=2, x принадлежит [-5;15] с шагом =1. вычислить все значения и найти количество элементов <10. ( решите через while или repeat)
Федосеев Павел
10.03.2017 14:28
program Func;
const a = 2.0; var x, y: real; Count: integer; begin Count := 0; x := -5; repeat y := a * (x + 1); if y < 10 then Inc(Count); writeln('x=', x: 6: 2, ' y=', y: 6: 2); x := x + 1.0; until x > 15; writeln('y<10: ', Count);
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.