Написал программу, выдает массу ошибок, помогите найти пожалуйста
10-11 класс
|
var
a,f, power: real;
begin
if(pow(a,2)-sin(a)<3){
f=pow(a,3)-abs(20-pow(a,2));
}
then if(pow(a,2)-sin(a))=3 then{
f=abs(a-6);
}
else if(powwe(a,2)-sin(a)>3){
f=(a-1)/(10-pow(a,2);
}
then{
cout<<"Err"< }
end.
uses crt;
var a,f: integer;
begin
readln(a);
if((sqr(a)-sin(a))<3) then
f=pow(a,3)-abs(20-sqr(a));
if((sqr(a)-sin(a))=3) then
f=abs(a-6);
if((sqr(a)-sin(a))>3) then
f=(a-1)/(10-sqr(a));
writeln(f);
end.
P.S При чем тут С++ и Pascal?
Смесь Паскаля и С++
Другие вопросы из категории
Каков размер алфавита, с помощью которого записано сообщение?
На языке програмирования! Паскаль АВС........
Плиз помогите , срочно нужно
Текст вводить с помошью readln. Он может содержать и буквы.
Одной программой
Читайте также
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
2. Дан код символа. Написать программу, выводящую сам символ.
3. Написать программу для вывода на экран всех маленьких латинских букв.