Определите, какое число будет напечатано в результате выполнения след. алг.:
5-9 класс
|
Var a,b,t,M,R :integer;
begin
F:=-(x+4)*(x+2);
end;
BEGIN
a:=-20; b:=20;
M:=a; R:=F(a);
for t:=a to b do begin
if (F(t)>R)then begin
M:=t;
R:=F(t);
end;
end;
write(M);
END.
a) -3
B) 3
C) -2
D) 2
Только в этом коде функции не хватает, целая строка пропущена.
Во вложении исправленный код и ответ
---
Ответ: а) -3
Другие вопросы из категории
1. добавить/удалить поле
2. отредактировать запись
3. поменять местами записи
4. Добавить запись
5. Удалить запись
Читайте также
integer):integer;
begin
F := 6*(x+10)*(x+10)+30;
end
BEGIN
a := -5; b := 20;
M := a; R:= F(a);
for t := a to b do begin
if F(t) > R then begin
M := t;
R:= F(t);
end;
end;
writeln(R);
END
Begin a:=-16; b:=16 K:=a to b do if F(s) > L then begin K:=s; L:=F(a) end; writen (K) End.
Определите, какое число будет напечатано в результате работы следующей программы.
Паскаль.
Var k, m: integer;
Dat: array[ 1..10] of integer;
Begin
Dat[ 1] := 12;
Dat[ 2] := 15;
Dat[ 3] := 17;
Dat[ 4] := 15;
Dat[ 5] := 14;
Dat[ 6] := 12;
Dat[ 7] := 10;
Dat[ 8] := 13;
Dat[ 9] := 14;
Dat[ 10] := 15;
m := 0;
for k := 1 to 10 do
if Dat[ k] =15 then
begin
m := m+1
end;
writeln(m);
End.
10 дней в градусах (Dat[1] – данные за первый день, Dat[2] – за второй
и т. д.). Определите, какое число будет напечатано в результате работы
следующей программы. Текст программы приведён на трёх языках
программирования
Var s,k: integer;
begin
s:= 100
k:=7
repeat
s:= s-k
k:=k+1
Until k>10
writeln( s+k)
end.
Пожалуйста объясните как вывести отсюда результат