Определите, что будет напечатано в результате выполнения следующего алгоритма var k,m,i: integer; mas:array[1..10] of integer; begin
5-9 класс
|
mas[1]:=12;
mas[2]:=43;
mas[3]:=48;
mas[4]:=56;
mas[5]:=76;
mas[6]:=73;
mas[7]:=36;
mas[8]:=96;
mas[9]:=69;
mas[10]:=25;
k:=0;
m1:=mas[1] div 10 - mas[1] mod 10;
for i:=2 to 10 do begin
m2:=mas[i] div 10 - mas[i] mod 10;
if m1 > m2 then begin
m1:=m2; k:=i;
end;
end;
write(k);
end.
m1=1-2=-1
m2=4-8=-4 k=3
m1=-4
больше нет такого m2 которое удовлетворяет условию m1 > m2
Другие вопросы из категории
А)клавиатура-микрофон
Б)река-Днепр
В)болт-чертеж болта
Г)мелодия-нотная запись мелодии
Д)весна-лето
Программа Паскаль. Тема- цикл с пред условием .
СРОЧНО:)
Читайте также
семестр, Dat[2] - оценка за второй семестр и т.д.). Определите что будет напечатано в результате выполнения следующего алгоритма:
Var k,m, term: integer;
Dat: array[1..8] of integer;
begin
Dat[1]:= 7 ; Dat[2]:= 7 ; Dat[3]:=6 ; Dat[4]:= 8 ;
Dat[5]:=4 ; Dat[6]:= 5; Dat[7]:= 4; Dat[8]:= 7;
term:=1; m:=Dat[1];
for k:=2 to 8 do
begin if Dat[k] < m then
begin m:=Dat[k]; term:=k
end end
write (term); end.
будет выведено на экран в результате выполнения алгоритма. Необходимо учитывать начальное и конечное значение параметра цикла, начальное значение переменной S.
Определите, что будет напечатано в результате выполнения следуюшего алгоритма, записанного на трёх алгоритмических языках.
Var s,k: integer;
begin
s:= 100
k:=7
repeat
s:= s-k
k:=k+1
Until k>10
writeln( s+k)
end.
Пожалуйста объясните как вывести отсюда результат
т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.
Алгоритмический язык алг нач целтаб Day[1:7] цел i, m, d Day [1]:=79; Day [2]:=25; Day [3]:=67; Day [4]:=80; Day [5]:=63; Day [6]:=17; Day [7]:=68; d:= 1; m:= Day [1] нц для i от 2 до 7 если Day[i] > m то m:= Day[i]; d:=i все кц вывод d кон