Uses crt;
var xA,xB,yA,yB,D: real;Begin
clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB); d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
writeln('Длина отрезака AB = ',d:0:3)
End.
A=9, b=8, c=2
if (9>8) and (8>2) ⇒ if True and True ⇒ if True и выполняется оператор после then:
x=2*9+8+2=18+8+2=28
Ответ: х=28
Program z7; Var a,b:integer; dx,y,x:real;Begin Write('Введите начало отрезка а = '); readln(a); Write('Введите конец отрезка b = '); readln(b); Write('Введите шаг dx = '); readln(dx); x:=a; writeln(' X Y'); while x<=b do begin y:=x; writeln(x,' ',y); x:=x+dx; end;End.
#include <iostream>
using namespace std;
int main()
{
double sum = 0;
for (int i = 0; i < 10; i++)
{
int x;
cin >> x;
sum += x;
}
cout << sum / 10;
return 0;
}