Информатика, опубликовано 07.04.2019 12:10
Решить исполнитель май17 преобразует число на экране. у исполнителя есть две команды, которым присвоены номера: 1. прибавить 1 2. прибавить 3 первая команда увеличивает число на экране на 1, вторая увеличивает его на 3. программа
для исполнителя май17 – это последовательность команд. сколько существует программ, для которых при исходном числе 1 результатом является число 15 и при этом траектория вычислений содержит число 8? траектория вычислений
программы – это последовательность результатов выполнения всех команд программы. например, для программы 121 при исходном числе 7 траектория будет состоять из чисел 8, 11, 12
Ответы
Ответ оставил: Гость
1: 1 2: 1 3: 1 4: 2 5: 3 6: 4 7: 6 8: 9 * 9: 9 10: 9 11: 18 12: 27 13: 36 14: 54 15: 81 ответ: 81Ответ оставил: Гость
1)program wk;var mas:array [1..5]of integer;i:integer;
begin
for i:=1 to 5 do
mas[i]:=Random(121)-64;
for i:=1 to 5 do
Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
p:=p*mas[i];
end;
Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
if (i mod 2 <>0)then p:=p*mas[i];
end;
Writeln(p)
end.
Ответ оставил: Гость
Столбы: название книги ,дата произвед, количество строниц , есть обложка?,автор,стоимость,титульный лист есть?строки:текстовый,дата,числовой,логический,текстовый,числовой,логический
Ответ оставил: Гость
Var a,i :integer;begin
i:=0;
repeat
i:=i+1
read(a);
if a mod 2 =1 then
write(1) else write(0);
until (I<5);
end.
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
