Переделать для for 1)q: =5; d: =1; while q> 0 do begin d: =d+q; dec(q) end; writeln(q,’ ‘, d); 2)q: =5; d: =1; while q> 0 do begin dec(q); d: =d+q end; writeln(q,’ ‘, d); 3)q: =5; d: =1; while q> 0 do dec(q); d: =d+q; writeln(q,’ ‘, d); 4)q: =5; d: =1; while q> 0 do d: =d+q; dec(q); writeln(q,’ ‘, d); p.s. написать в паскале программу
143
155
Ответы на вопрос:
1) var i,d,q: integer; begin d: =1; for q: =5 downto 1 do {можно и for q: =1 to 5 do но у вашем примере идет на спад , я сделал так же} d: =d+q; writeln(q,' ',d); end. 2) var i,d,q: integer; begin d: =1; for q: =4 downto 1 do d: =d+q; writeln(q,' ',d); end.3) здесь вовсе не нужен цикл , всеравно переменная станет 1(еденицей)var i,d,q: integer; begind: =1; q: =1; d: =d+q; writeln(q,' ',d); end.4) будет зацикленость , поскольку не зименяется значение q (либо ошибка в условии)а так как нет изменений то и переработать нельзя в цикл for
Информационная система состоит из баз данных, в которых накапливается информация, источника информации, аппаратной части ИС, программной части ИС, потребителя информации.
Объяснение:
Популярно: Информатика
-
Nataliya2411196903.01.2021 08:12
-
gigi2417.06.2021 22:44
-
123Gopo19.03.2020 21:16
-
kim519455787822.11.2020 10:22
-
hshsjsnsvsbsns1728214.01.2020 02:56
-
МААклерша29.09.2021 08:03
-
АндрейXXXМ27.02.2022 13:21
-
nadyam198221.01.2023 23:30
-
romawylka27.11.2021 01:00
-
Alikman12314.10.2022 19:38