Определите, что будет напечатано в результате работы следующего фрагмента программы:
begin k:=5; s:=2; while k < 40 do begin s:=s+k; k:=k+2; end; write(s); end.
Чему будет равно значение переменной s после выполнения фрагмента программы:
y:= 1; s:= 0;
while y<= 2 do begin s:= s+ y; y:=y+ 1 end;
Сколько раз будет выполнен цикл в следующем фрагменте:
BEGIN
x:=2;
while x < 8 do
x:=x+1 END.
Какое значение примет переменная х в результате выполнения следующих фрагментов программ?
x:=1;
while x<100 do begin
x:=x*2;
end;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.