Для того, чтобы определить какое значение будет принимать переменная Х, после выполнения фрагмента исходной программы, пройдем по этой программе вручную следующим образом:
1) а: =4, b: = 5, с: = 3.
2) If a > b then x: = a + b
4 > 5 - не верно, значит переходим на следующий шаг программы после ключевого слова else:
3) else begin
a: = b + c = 5 + 3 = 8; получили, что значение a теперь равняется 8.
x:= а - 3 * b = 8 - 3 * 5 = 8 - 15 = -7.
4) Поскольку следующим идет команда end, значит программа завершает и получаем значение x: = -7.
Таким образом правильный вариант ответа - г).
Объяснение:
Проверенные ответы содержат информацию, которая заслуживает доверия. На «Знаниях» вы найдёте миллионы решений, отмеченных самими пользователями как лучшие, но только проверка ответа нашими экспертами даёт гарантию его правильности.
{Задача сделана на языке паскаль, при Оформление сделана как для студенческой задачи
Если есть во пиши в личку
Задача:Написать программу на языке программирования Pascal, которая вводит с клавиатуры 4 числа и выводит результат вычисления спо следующей схеме: "число1"−"число2"/"число3"+"число4"
Автор:
Дата: }
var x1, x2, x3, x4: integer;
f:real;
begin
//Ввод
writeln('введите 1 число');
readln(x1);
writeln('введите 2 число');
readln(x2);
writeln('введите 3 число');
readln(x3);
writeln('введите 4 число');
readln(x4); //решение
f:=(x1-x2)/(x3+x4);
//вывод
writeln (f);
end.
ar:array[1..20] of integer;
k,i,j:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 4 do
begin;
writeln;
for j:=1 to 5 do
begin;
ma[i,j]:=random(-10,10);
if ma[i,j]<0 then
begin;
inc(k);
ar[k]:=ma[i,j];
end;
write(ma[i,j]:4);
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar[i]:4);
end.