Задача: Дано натуральное число n. Вычислить выражение ...

[NoSiK]

Благодарю всех кто помог особенно "ОДИНОЧЕСТВО В СЕТИ" ты очень помогла огромное спосибо!!!!

вот еще есть ....)

3,Дано натуральное число n найти количество единиц в десятичной записи числа n;

Помогите кто может...в паскале....И если не трудно можете после каждого оператора написать краткое объяснение своими словами....зарание благодарю.

[ОДИНОЧЕСТВО В СЕТИ]

count:=0; 
while x<>0 do
    begin
      if x mod 10=1 then inc(count);
      x:=x div 10
    end;
writeln(count);

описание всех операторов читаем в Help-е по Паскалю

[NoSiK]

var n:real;
count:=0; 
begin
 while x<>0 do
    begin
      if x mod 10=1 then inc(count);
      x:=x div 10
    end;
 writeln(count);
end.

Благодарю ты меня прям выручаешь)
Понимаю,что наверняка надоел)) но выдает ошибку при компиляции(((
Не могла бы написать целиком программу (если не хочешь я пойму)

[Денис_Рассветный]

uses CRT;
var n: integer;  // вводимое число
    count: integer; // кол-во цифр "1"
begin
writeln('Введите число');
readln (n);
while n<>0 do  // цикл выполняется пока n не равно 0
      begin
       if n mod 10 = 1
        then inc(count); // если остаток от деления n на 10 равен 1 (то есть последняя цифра числа n - "1"), то count увеличиваем на 1
       n:=n div 10; // делим n на 10 для последующей проверки
      end;
writeln ('Кол-во едениц в введеном числе = ',count);
end.

[NoSiK]

Благодарю ты меня выручил!

[NoSiK]

А может ктонить такое решить?
(понимаю,что борзею просто очень надо)
Протабулировать указаную функцию на отрезке [a,b]
a)фунуцию Y=sin(x^2) c шагом h
Желательно как "Денис_Рассветный" с кратким объяснением
Кстате еще раз благодарю! Очень понятно расписал начинаю понимать)

[ОДИНОЧЕСТВО В СЕТИ]

var
a,b,h:real;
begin
readln(a);
readln(b);
readln(h);
while a<=b do begin
writeln(a:6:3,'':7,sin(a*a):6:3);
a:=a+h;
end;
readln;
end.

описание всех операторов читаем в Help-е по Паскалю

p.s Cоветую почитать правила раздела

[NoSiK]

Благодарю. насчет хелпа не работает ни на одном паскале скачал раз 5 уже)
Че за правила раздела?

[ОДИНОЧЕСТВО В СЕТИ]

правила раздела

[NoSiK]

Немного не понял, говори прямо!