Во Введите, что будет выведено в результате выполнения следующего фрагмента программы:
a := 10;
b := 20;
x := b;
if a>b then b := x+a;
a := x-a;
writeln (a);
Во Введите, что будет выведено в результате выполнения следующего фрагмента программы:
a := 10;
b := 20;
c := 30;
x := b;
if 2*a>b then x := a;
if 2*c writeln (x);
Во Введите, что будет выведено в результате выполнения следующего фрагмента программы:
a := 15;
b := 20;
x := b;
if a>b then x := a-b else x := b-a;
writeln (x);
Во Введите, что будет выведено в результате выполнения следующего фрагмента программы:
a := 20;
b := 40;
if a mod b = 10*(a div b)
then x := 10 else x := 20;
if x mod b = 10*(x div b)
then x := 10 else x := 20;
writeln (x);
Во Введите, что будет выведено в результате выполнения следующего фрагмента программы очень надо
program ExampleN;
uses ...; // здесь укажите где в вашей версии Паскаля
var
x, y, z, r, s: Real;
begin
Write ('Введете x, y: ');
ReadLn (x, y);
z := Sqr (Cos (x));
if z = 0.0 then
r := 0.0
else if z > 0.0 then
r := Exp (Ln (z) / 3)
else
r := - Exp (Ln (-z) / 3);
s := 8 * r - y;
WriteLn (s);
ReadLn;
end.
Объяснение:
в паскале нет стандартной функции извлечения корня, поэтому приходится использовать такой алгоритм:
if z = 0.0 then
r := 0.0
else if z > 0.0 then
r := Exp (Ln (z) / 3)
else
r := - Exp (Ln (-z) / 3);
вопрос № 1
1) следование
2) цикл
4) ветвление
вопрос № 2
4) все, кроме вещественных
вопрос № 3
1) для данных целого типа
Объяснение:
вопрос № 1 любой алгоритм строится из трех элементов следование, цикл, ветвление. что такое вс не знаю
вопрос № 2 порядковые типы: целые, булевы (логические) и символьные. Вопрос не корректный, так как существуют такие типы данных как строки, массивы, файлы, указатели и т.д. и это всё не порядковые типы. Наиболее правильным было бы выбрать ответ: "ничего из перечисленного не подходит". Если требуется выбрать что-то из перечисленного, то более других подходит ответ 4.
вопрос № 3 тут целый тип, однозначно