Линейный алгоритм. Арифметические операции

Определите какое значение величины S после выполнения следующих операторов присваивания? S := 5; S := 57; Write ('S = ', S);

Определите какое значение величины X после выполнения следующих операторов присваивания? X := 60; X := X - 1; X := 0; Write('X = ', X);

Определите какие величины нужно ввести для вычисления по формулам? р := (а + b + с) / 2; s := SQRT (p * (p-a) * (p-b) *(p-c));

Определите какое значение величины S после выполнения следующих операторов присваивания? S := 7.5; S := 2 * S; Write('S = ', S);

Определите какое значение величины k после выполнения следующих операторов присваивания? s := 14; k := -3; d := s + 1; s := d; k := 2 * s; Write('k = ', k);

Определите какой результат будет выведен после выполнения программы? .......................... Begin a := 3; b := 4; c := 5; р := (а + b + с) / 2; S := SQRT (p * (p - a) * (p - b) * (p - c)); Write (‘площадь = ’,S : 7 : 3); End.

Определите какого типа будут величины в следующей программе? Var х1, у1, х2, у2, d: ....... Begin Write (‘введите координаты х1, у1, х2, у2 = ’); Readln (х1, у1, х2, у2); d := SQRT(sqr(x1 - x2)+sqr(y1 - y2)); Write(‘расстояние = ’, d : 7 : 3); End.

Определите какой результат будет выведен после выполнения программы? ........................... Begin Write (‘Введите значение a = ’); Readln (a); Write (‘Введите значение b = ’); Readln (b); Write (‘Введите значение c = ’); Readln (c); р := (а + b + с) / 2; S := SQRT (p * (p - a) * (p - b) * (p - c)); Write (‘площадь = ’, S : 7 : 3); End.

Определите какой результат будет выведен после выполнения программы? ............................. Begin х1 := 5; у1 := 6; х2 := 2; у2 := 2; Readln (х1, у1, х2, у2); d := SQRT (sqr (x1 - x2) + sqr (y1 - y2)); Write (‘расстояние = ’, d : 7 : 3); End.

Определите какой результат будет выведен после выполнения программы? Var a, s, d: real; Begin a := 5; S := SQR (a); D := a * SQRT (S); Write (‘площадь = ’,S : 7 : 3); End.