Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
У исполнителя существует 2 команды:
1. Умножить на 2
2.Прибавить 3
Сколько существует программ которые позволяют из цифры 1 получить 17.
Если про алгоритм, то можно такую.
Правильный ответ это А. Пуск-Все программы-Стандартные и Paint
Таблицу покажи а то так невыполнить