Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискСмотриComboВсе проекты

Програмисты!! помогите написать лёгкую прогу в Pascal!!

Артём Абдрафиков Ученик (200), на голосовании 11 лет назад
До завтра надо блин зделать а я не рублю...

1)Ввести "n" чисел в переменную С и определить кол-во чисел, принадлежащих отрезку [a,b]. a и b задать оператором ввода.

2)Вычислить S=x - x^3/6, если 0,1<=x<1=, иначе y=sinx.
Дополнен 11 лет назад
Ошибка: 0,1<=x<1=, правильно - 0,1<=x<=1
Голосование за лучший ответ
den den Мудрец (11137) 11 лет назад
program pr1;
var a,b,c,n,rez,i: integer; {целые числа}
s,x,y: real; {дробные числа}
begin
rez:=0; {обнуляем счетчик}
write('Введите А: '); readln(a); write('Введите Б: '); readln(b); write('Введите n:'); readln(n);
for i:=1 to n do begin
write('Введите C:'); readln(c);
if (c>=a)and(c<=b) then rez:=rez+1; end;
writeln('Количество введенных чисел, принадлежащих заданному отрезку: ',rez);
writeln; writeln; writeln;
write('Введите x:'); readln(x);
if (x<=0.1)and(x<=1) then s:=x-x*x*x/6 else s:=sin(x); {не совсем понятно условие задачи}
writeln('Результат: ',s);
end.

Похожие вопросы
Также спрашивают