var s,i, n: integer;
begin
for i:=1 to 1000 do begin
s:=i;
n := 1;
while s < 221 do begin
s := s + 13;
n := n * 2
end;
if n=128 then begin writeln(i) break; end;
end;
end.
почему программа не работает?!
Приложения:
balakine977:
кидай сюда
file:///C:/Users/Gawri/Downloads/WhatsApp%20Image%202021-10-30%20at%2021.59.50.jpeg
ссылка на фото
вот же программисты пошли, ссылку на локальный файл скидывают
текстом напиши условие...
я не сдаю инфу но ттак как я в айти классе требуют также
Var s, n: integer;
Begin
Readln (s);
S := 3* (s div 10);
N := 1;
While s< 221 do begin
S := s + 13;
N := n * 2
End;
Writeln (n)
End.
Begin
Readln (s);
S := 3* (s div 10);
N := 1;
While s< 221 do begin
S := s + 13;
N := n * 2
End;
Writeln (n)
End.
Определите, сколько существует различных целых значений переменной s, при вводе которых данная программа выведет число 128. Для Вашего удобства программа представлена на четырёх языках программирования
Оформи вопрос нормально, задание напиши, а не мозаику в комментариях, нечего не понятно, что требуется. Твоя программа не работает так как ты пропустил ; в коде о чем тебе и написано внизу.
var s, n, i, count: integer;
begin
for i := 0 to 10000 do begin
s := 3 * (i div 10);
n := 1;
while s < 221 do begin
s := s + 13;
n := n * 2
end;
if n = 256 then count := count + 1;
end;
writeln(count);
end.
begin
for i := 0 to 10000 do begin
s := 3 * (i div 10);
n := 1;
while s < 221 do begin
s := s + 13;
n := n * 2
end;
if n = 256 then count := count + 1;
end;
writeln(count);
end.
Ответы
Ответ дал:
2
Ответ:
Существует только одно значение S = 130 при котором эта программа выведет 128
Объяснение:
S линейно возрастает в цикле и никогда не уменьшается, следовательно насколько бы мы не увеличивали количество шагов в цикле вывод программы не измениться, при i = 130 n = 128. Все последующие разы цикл while не выполняется, после i = 221 в данном случае оператор for избыточен, так как становиться s > 221.
Вас заинтересует
2 года назад
3 года назад
8 лет назад
8 лет назад
9 лет назад