От за это. Понимаю что это не математика, а информатика, но мне кажется раздел ИКТ никто не смотрит.
Определить значение переменной у после выполнения следующих фрагментов программы:
1) у := 1.5; for i := 1 to 4 do у := у - i;
2) у := 2; for k := 4 downto 1 do у : = у * k;
3) у := 5; for n := 1 downto 4 do у := у + n;
4) у := 1; for i := 1 to 3 do begin у := у +1 ; у := у + i; end;
5) у := 0; for i := 4 to 6 do у := у + i ; у := у / 10;
6) у := 1; for i := 0 downto -2 do у := у - i; у := у * 10;
7) y := 0; for n := 4 downto 2 do begin y := y + n; y := y * 10; end;
Определить значение переменной у после выполнения следующих фрагментов программы:
1)Var у : real; i : integer; у := 1 ; i := 5; while i> 2 do i:= i - 1; y:=y + 1 * i;
2)Var у : real; i : integer; у := 1 ; i := 2 ; repeat i:= 2 * i; y:=y + i until i > 5;
3)Var у : real; i : integer; у := 1 ; i := 1; while i< 5 do i:= i+1; y:=y+1 * i;
4)Var у : real; i : integer; у := 1 ; i := 1; while i > 1 do begin y:=y + 1 / i; i:= I – 1; end;
5)Var у : real; i : integer; у := 1 ; i := 5; repeat i:= 2 * i; y:=y + i until i > 5;
6)Var у : real; i : integer; у := 1 ; i := 1; repeat y:= y + 1 / i; i:= I - 1 until i <= 1;
Теперь вторые.
Определить значение переменной у после выполнения следующих фрагментов программы:
1) y := 0; for k : = 2 to 6 do у := у + k;
2) у : = 1; for k : = 6 downto 3 do у : = у + k ;
3) у := 1; for k := 6 to 3 do у : = у + k;
4) у := 1; for k := 1 to 3 do у : = у + k ; у := у * 10;
5) y := 0; for i : = 1 to 4 do begin y := y * 10 ; y := y + i; end;
6) у ;= 0; for х := 6 downto 2 do у : = у +х; у := у * 2;
7) y := 0; for n := 6 downto 3 do begin y := y + 1; y :=y * 2; end;
Определить значение переменной s после выполнения следующих фрагментов программы:
1) Var s : real; i : integer; s := 0 ; i := 5; while i>2 do i:=I -1; s := s + i * i;
2) Var s : real; i : integer; s := 0 ; i := 2 ; repeat i:=2*i; s:=s+i until i > 5 ;
3) Var s : real; i : integer; s := 0 ; i := 0; while i<5 do i:= i+1; s := s + 1 * i;
4) Var s : real; i : integer; s := 0 ; i := 1; while i >1 do begin s := s + 1 / i ; i:= i-1; end;
5) Var s : real; i : integer; s := 0 ; i := 5; repeat i:=2*i; s := s + i until i > 5;
6) Var s : real; i : integer; s := 0 ; i := 1; repeat s : = s + 1 / i ; i : = I -1 until i <= 1;
283
292
Ответы на вопрос:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Математика
-
Sosushka28.05.2021 04:06
-
ВасилийПупкин22711.08.2022 23:15
-
Viktoria120t17.02.2021 01:55
-
pepep26.04.2020 10:06
-
Medvedevalilit200409.06.2021 21:38
-
kjk123ggt14.10.2022 20:40
-
Шаша67628.08.2021 22:17
-
zeynab9702.04.2020 09:04
-
duyquhuseynli1130.05.2020 05:08
-
1014908.11.2021 15:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.