Определите значение переменной z после выполнения фрагмента алгоритма: z: =1; repeat z: =z+2 until z=10; 1) 9 2) 11 3) 10 4) 1 5) ни один из вышеперечисленных ответов не верен, мой ответ: и в целом объясните) как то меня ввела в тупик эта )
118
200
Ответы на вопрос:
Условие проверяется после декремента и если истинно, то цикл завершается 1 +2=3 +2=5 +2=7 +2=9 +2=11 +2=13 выходит, что цикл не завершится по условию, т.к. не попадёт в "10", вариант ответа №5
1)program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не да,число ошибка в if.
//в принципе можно обойтись и без вычисления прерывать цикл при несовпадении двух шестеренок и
//выводить no
var
n, s, i, m, m1: int64;
begin
s : = 0;
read(n, m1);
for i : = 1 to n - 1 do
begin
read(m);
if m = m1 then
s : = s + 1;
m : = m1;
end;
if (s = n - 1) then
write('yes');
if (s < > n - 1) then
write('no');
end.
3) Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.
Выбери один из ответов и напиши я лично думаю так
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не да,число ошибка в if.
//в принципе можно обойтись и без вычисления прерывать цикл при несовпадении двух шестеренок и
//выводить no
var
n, s, i, m, m1: int64;
begin
s : = 0;
read(n, m1);
for i : = 1 to n - 1 do
begin
read(m);
if m = m1 then
s : = s + 1;
m : = m1;
end;
if (s = n - 1) then
write('yes');
if (s < > n - 1) then
write('no');
end.
3) Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.
Выбери один из ответов и напиши я лично думаю так
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Sadist70222.01.2022 22:49
-
azko10.05.2020 10:30
-
nodirkamolov12.01.2022 11:21
-
kuznecovamargo11.03.2023 13:07
-
ZinW18.06.2022 18:07
-
Васиози16.08.2020 14:27
-
sXiM07.08.2020 18:53
-
школьник81111.04.2021 18:49
-
grekorim1998a16.03.2021 19:54
-
Джміль09.08.2021 17:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.