1) в 4 и 6 строках заменить кавычки на одинарные (те которые там где русская буква Э. PascalABC другие не понимает, другие паскали тоже могут ругаться.
2) строка 8 оператор FOR требует перечисляемый тип например integer, так что чтобы все заработало придется переменные x, m, n объявить как integer (var x, m, n : integer)
3) в десятой строке исправить название функции возведения в квадрат на sqr
4) функция sin() считает в радианах. Если данные у вас в градусах то их нужно перевести в радианы.
5) не понятно для чего используется цикл если будет выведено только последнее вычисленное значение. Возможно в цикле пропущен блок BEGIN END;
исправленная програма будет выглядеть примерно так:
Program one;
Var y : real;
x, n, m : integer;
Begin
Write('введите число m ');
Readln(m);
Write('введите число n ');
Readln(n);
For x := m to n do begin
y := sin(degToRad(4*sqr(x)));
Writeln(y);
end;
End.
ну и плюс поправил отступы и стилистические ошибки не влияющие на результат...
1) в 4 и 6 строках заменить кавычки на одинарные (те которые там где русская буква Э. PascalABC другие не понимает, другие паскали тоже могут ругаться.
2) строка 8 оператор FOR требует перечисляемый тип например integer, так что чтобы все заработало придется переменные x, m, n объявить как integer (var x, m, n : integer)
3) в десятой строке исправить название функции возведения в квадрат на sqr
4) функция sin() считает в радианах. Если данные у вас в градусах то их нужно перевести в радианы.
5) не понятно для чего используется цикл если будет выведено только последнее вычисленное значение. Возможно в цикле пропущен блок BEGIN END;
исправленная програма будет выглядеть примерно так:
Program one;
Var y : real;
x, n, m : integer;
Begin
Write('введите число m ');
Readln(m);
Write('введите число n ');
Readln(n);
For x := m to n do begin
y := sin(degToRad(4*sqr(x)));
Writeln(y);
end;
End.
ну и плюс поправил отступы и стилистические ошибки не влияющие на результат...
#include <iostream>
using namespace std;
int sumofdigits(int n);
int main()
{
int a, b, sa, sb;
setlocale(LC_ALL, "Russian");
cout << "Введите 2 натуральных числа: ";
cin >> a >> b;
sa = sumofdigits(a);
sb = sumofdigits(b);
cout << "\nСумма цифр первого числа: " << sa;
cout << "\nСумма цифр второго числа: " << sb;
if (sa > sb)
cout << "\nСумма цифр первого числа больше, чем второго";
else if (sa < sb)
cout << "\nСумма цифр второго числа больше, чем первого";
else if (sa == sb)
cout << "\nСуммы цифр чисел равны";
}
int sumofdigits(int n) {
int sum = 0;
while (n != 0) {
sum += n % 10;
n /= 10;
}
return sum;
}