Ответ: //Код PascalABC.NET 3.3 (1627)Function R1D(x1,x2: real): real;Begin Result := Abs(x1-x2);End;Var a,b: integer;Begin Write(‘x1 = ‘);ReadLn(a); Write(‘x2 = ‘);ReadLn(b); WriteLn(‘Расстояние между x1 и x2: ‘,R1D(a,b));End.
составьте программу вычисления расстояния между двумя точками с координатами x1 и x2 лежащим на числовой оси по формуле R|x1 -x2| — Правильный ответ на вопрос найдете ниже
20.01.2020 · 1
Составьте программу вычисляющую, сумму квадратов чисел от 1 до n, (n- вводится с клавиатуры) если n-четное, и сумму кубов чисел от 1 до n, если n-нечетное. Использовать цикл WHILE
— Правильный ответ на вопрос найдете ниже
17.01.2020 · 1
Ответ:
program name;var i,n,x,summa,count:integer;nechet:boolean;beginWriteln(‘Vvedite n: ‘);readln(n);//получаем nsumma:=0;count:=0;i:=1;if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нетwhile i<n do begin//пока число меньше nif(nechet) then//если число нечентноеbeginsumma:=summa+i*i*i;//прибавляем к сумме куб этого числаendelse//если число четноеbeginsumma:=summa+i*i;//прибавляем квадрат числаend;i:=i+1;//прибавляем число на 1end;writeln(‘ summa: ‘, summa);//выводим суммуreadln();end.